cp/m macro ASSEM 2.0 



#001 



*** Cbios For CP/M Ver. 2.2 *** 



***************************************************************** 



* CBIOS FOR CP/M VER 2.2 FOR DISK JOCKEY 2D CONTROLLER (ALL 

* REVS, AND MODELS A & B) . HANDLES DISKETTES WITH SECTOR SIZES 

* OF 128 BYTES SINGLE DENSITY, 256, 512, 1024 BYTES DOUBLE 

* DENSITY. THERE ARE CONDITIONAL ASSEMBLIES FOR DISKUS HARD 

* DISK CONTROLLER. 
* 

* WRITTEN BY BOBBY DALE GIFFORD. 

* 12/8/80 
* 

* CUSTOMIZED BY JAY O'BRIEN 

* 1/16/82 

* 

* DISK MAP OF SECTORS USED BY COLD BOOT, WARM BOOT, FIRMWARE, 

* AND CP/M: 



* TRK SEC 1 = FIRST SECTOR OF COLD BOOT. 

2 = COLD BOOT 256. 

3 = COLD BOOT 512. 

4 = COLD BOOT 1024. 

5 = WARM BOOT 256. 

6 = WARM BOOT 512. 

7 = WARM BOOT 1024. 

8 = COLD/WARM BOOT. 

9 = FIRMWARE. 

10 = FIRMWARE+80H. 

11 = FIRMWARE+100H 

12 = FIRMWARE+180H. 

13 = FIRMWARE+200H. 

14 = FIRMWARE+280H. 

15 = FIRMWARE+300H. 

16 = FIRMWARE+380H. 

17 = CCP. 
10 = CCP+80H. 
12 = CCP+100H. 
14 = CCP+180H. 
16 = CCP+200H. 

18 = CCP+280H. 
20 = CCP+300H. 
22 = CCP+380H. 
24 = CCP+400H. 
26 = CCP+480H. 

= REST OF CP/M. 
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E700H 

30H 

80H 

80H 

80H 

80H 

80H 

2C00H 

E400H 

E480H 

E500H 

E580H 

E600H 

E680H 

E700H 

E780H 

2700H 

2780H 

2800H 

2880H 

2900H 

2980H 

2A00H 

2A80H 

2B00H 

2B80H 

2C00H-4FFFH" 
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.*** cbiog For cp / M Ver . 2.2 ***' 






***************************************************************** 
* * 

* THE FOLLOWING REVISION NUMBER IS IN REFERENCE TO THE CP/M • * 

* 2.2 CBIOS. * 

* * 
***************************************************************** 



— t Co o 



1/fOG, <TV 66>? ,'L $2fS*«^ I 



CP/M MACRO ASSEM 2.0 #002 *** Cbios For CP/M Ver. 2.2 *** 



001C = 
0016 = 



REVNUM EQU 28 
CPMREV EQU 22 



; CBIOS REVISION NUMBER 
,-CP/M REVISION NUMBER 



***************************************************************** 

* * 

* THE FOLLOWING EQUATES SET UP THE RELATIONSHIP BETWEEN THE * 

* 2D FLOPPIES AND THE HARD DISK CONTROLLERS. * 

* * 

***************************************************************** 



0000 



0001 
0002 

0001 
0000 

0000 



FIRST EQU 







0001 = 



MAXHD 


EQU 


1 


MAXFLOP 


EQU 


2 


M26 


EQU 


1 


M20 


EQU 





M10 


EQU 







IF 


M10 OR M20 


S DELAY 


EQU 
ELSE 





SDELAY 


EQU 

ENDIF 


1 



= FLOPPIES ARE A,B,C,D DRIVES AND 

HARD DISK ARE E,F,G,H 

1 = HARD DISKS ARE A,B,C,D DRIVES AND 

FLOPPIES ARE E,F,G,H 
SET TO NUMBER OF HARD DISKS 
SET TO NUMBER OF FLOPPIES 

;SET ONLY ONE OF THESE VARIABLES 



; SOFTWARE HEAD SETTLE DELAY (0 = NO, 1 = YES) 



001A 
0003 
0020 



MREV EQU 
LOGDSK EQU 
HDSPT EQU 



26*M26+20*M20+10*M10 

3*M26+3*M20+2*M10 

32*M26+21*M20+21*M10 



;HARD DISK TYPE 

; LOGICAL DISKS PER DRIVE 

;SECTORS PER TRACK 



***************************************************************** 

* * 

* THE FOLLOWING EQUATES RELATE THE THINKER TOYS 2D CONTROLLER. * 

* IF THE CONTROLLER IS NON STANDARD (0E000H) ONLY THE ORIGIN * 

* EQUATE NEED BE CHANGED. THIS VERSION OF THE CBIOS WILL WORK * 

* WITH 2D CONTROLLER BOARDS REV 0, 1, 3, 3.1, 4, MODEL B. * 

* * 

***************************************************************** 









IF 


MAXFLOP NE 


•INCLUDE DIS( 


F000 


= 


ORIGIN 


EQU 


0F000H 






F400 


= 


DJRAM 


EQU 


ORIGIN+400H ; 


•DISK 


JOCKEY 


F400 


= 


DJBOOT 


EQU 


DJRAM 


•DISK 


JOCKEY 


F003 


= 


DJCIN 


EQU 


ORIGIN+3H 


•DISK 


JOCKEY 


F006 


= 


DJCOUT 


EQU 


ORIGIN+6H 


•DISK 


JOCKEY 


F409 


= 


DJHOME 


EQU 


DJRAM+9H 


•DISK 


JOCKEY 


F40C 


= 


DJTRK 


EQU 


DJRAM+0CH 


•DISK 


JOCKEY 


F40F 


= 


DJSEC 


EQU 


DJRAM+0FH 


•DISK 


JOCKEY 


F412 


= 


DJDMA 


EQU 


DJRAM+012H ", 


• DISK 


JOCKEY 


F415 


= 


DJREAD 


EQU 


DJRAM+1 5H 


•DISK 


JOCKEY 


F418 


= 


DJWRITE 


EQU 


DJRAM+18H 


•DISK 


JOCKEY 


F41B 


=s 


DJSEL 


EQU 


DJRAM+1BH 


•DISK 


JOCKEY 


F021 


= 


DJTSTAT 


EQU 


ORIGIN+21H 


•DISK 


JOCKEY 



2D RAM ADDRESS 

2D INITIALIZATION 

2D CHARACTER INPUT ROUTINE 

2D CHARACTER OUTPUT ROUTINE 

2D TRACK ZERO SEEK 

2D TRACK SEEK ROUTINE 

2D SET SECTOR ROUTINE 

2D SET DMA ADDRESS 

2D READ ROUTINE 

2D WRITE ROUTINE 

2D SELECT DRIVE ROUTINE 

2D TERMINAL STATUS ROUTINE 



cp/m macro ASSEM 2.0 



#003 



*** Cbios For CP/M Ver. 2.2 *** 



F427 = 
F42A - 
F42D = 
F430 = 
0008 = 



DJSTAT EQU 

DJERR EQU 

DJDEN EQU 

DJSIDE EQU 

DBLSID EQU 



ENDIF 



DJRAM+27H 
DJRAM+2AH 
DJRAM+2DH 
DJRAM+30H 
8 



?DISK JOCKEY 2D STATUS ROUTINE 
;DISK JOCKEY 2D ERROR, FLASH LED 
;DISK JOCKEY 2D SET DENSITY ROUTINE 
;DISK JOCKEY 2D SET SIDE ROUTINE 
;SIDE BIT FROM CONTROLLER 



***************************************************************** 

* * 

* THE FOLLOWING EQUATES ARE FOR THE DISKUS HARD DISK WANTED. * 

* * 

***************************************************************** 



0050 
0050 
0050 
0053 
0052 
0051 
0051 
0002 
0001 
0002 
0004 
0008 
0010 
0020 
0040 
0004 
00FB 
0004 
0200 
000F 
000B 
0005 
0007 
00F7 
00FC 
0000 
0008 
0001 
0005 





IF 


MAXHD NE 


HDORG 


EQU 


50H 


HDSTAT 


EQU 


HDORG 


HDCNTL 


EQU 


HDORG 


HDDATA 


EQU 


HDORG+3 


HDFUNC 


EQU 


HDORG+2 


HDCMND 


EQU 


HDORG+1 


HDRESLT 


EQU 


HDORG+1 


RETRY 


EQU 


2 


TKZERO 


EQU 


1 


OPDONE 


EQU 


2 


COMPLT 


EQU 


4 


TMOUT 


EQU 


8 


WFAULT 


EQU 


10H 


DRVRDY 


EQU 


20H 


INDEX 


EQU 


40H 


PSTEP 


EQU 


4 


NSTEP 


EQU 


0FBH 


HDRLEN 


EQU 


4 


SECLEN 


EQU 


512 


WENABL 


EQU 


0FH 


WRESET 


EQU 


0BH 


SCENBL 


EQU 


5 


DSKCLK 


EQU 


7 


MDIR 


EQU 


0F7H 


NULL 


EQU 


0FCH 


IDBUFF 


EQU 





ISBUFF 


EQU 


8 


RSECT 


EQU 


1 


WSECT 


EQU 
ENDIF 


5 



WANT HARD DISK INCLUDED ? 

HARD DISK CONTROLLER ORIGIN 

HARD DISK STATUS 

HARD DISK CONTROL 

HARD DISK DATA 

HARD DISK FUNCTION 

HARD DISK COMMAND 

HARD DISK RESULT 

RETRY BIT OF RESULT 

TRACK ZERO BIT OF STATUS 

OPERACTION DONE BIT OF STATUS 

COMPLETE BIT OF STATUS 

TIME OUT BIT OF STATUS 

WRITE FAULT BIT OF STATUS 

DRIVE READY BIT OF STATUS 

INDEX BIT OF STATUS 

STEP BIT OF FUNCTION 

STEP BIT MASK OF FUNCTION 

SECTOR HEADER LENGTH 

SECTOR DATA LENGTH 

WRITE ENABLE 

WRITE RESET OF FUNCTION 

CONTROLLER CONTROL 

DISK CLOCK FOR CONTROL 

DIRECTION MASK FOR FUNCTION 

NULL COMMAND 

INITIALIZE DATA COMMAND 

INITIALIZE HEADER COMMAND 

READ SECTOR COMMAND 

WRITE SECTOR COMMAND 



***************************************************************** 
* * 



* CP/M SYSTEM EQUATES. IF RECONFIGURATION OF THE CP/M SYSTEM 

* IS BEING DONE, THE CHANGES CAN BE MADE TO THE FOLLOWING 



* 
w __ ___ _ __ _____ „„„„_.._.„ * 

* EQUATES. * 

* * 
****************** * * ********************************************* 



003C 
A000 
C700 



MSIZE EQU 60 ; MEMORY SIZE OF TARGET CP/M 

BIAS EQU ,(MSIZE-20)*1024 ;MEMORY OFFSET FROM 20K SYSTEM 
CCP EQU 2700H+BIAS ; CONSOLE COMMAND PROCESSOR 



CP/M macro ASSEM 2.0 



#004 



*** Cbios For CP/M Ver. 2.2 *** 



CF00 = 
DD00 = 
4A00 = 

0004 = 
0080 = 
0100 = 
00C0 = 
0003 ■ 
0000 = 

0005 = 



BDOS EQU 
BIOS EQU 
OFFSETC EQU 
CDISK EQU 
BUFF EQU 
TPA EQU 
INTIOBY EQU 
IOBYTE EQU 
WBOT EQU 
ENTRY EQU 



CCP+800H 

CCP+1600H 

2700H-BIOS 

4 

80H 

100H 

192 

3 



5 



;BDOS ADDRESS 

; CBIOS ADDRESS 

7 OFFSET FOR SYSGEN 

7 ADDRESS OF LAST LOGGED DISK 

7 DEFAULT BUFFER ADDRESS 

? TRANSIENT MEMORY 

; INITIAL IOBYTE 

7 IOBYTE LOCATION 

;WARM BOOT JUMP ADDRESS 

7 BDOS ENTRY JUMP ADDRESS 



***************************************************************** 

* * 

* THE FOLLOWING ARE INTERNAL CBIOS EQUATES. MOST ARE MISC. * 

* CONSTANTS. * 

* * 

***************************************************************** 



000A = 
000D = 
000A = 
001A = 
0003 = 
0006 = 



RETRIES EQU 10 

ACR EQU 0DH 

ALF EQU 0AH 

CLEAR EQU 1AH 

AETX EQU 3 

AACK EQU 6 



? MAX RETRIES ON DISK I/O BEFORE ERROR 

7 A CARRIAGE RETURN 

7 A LINE FEED 

7 CLEAR SCREEN FOR VIO-X 

7ETX CHARACTER 

?ACK CHARACTER 



***************************************************************** 

* * 

* THE JUMP TABLE BELOW MUST REMAIN IN THE SAME ORDER, THE * 

* ROUTINES MAY BE CHANGED, BUT THE FUNCTION EXECUTED MUST BE * 

* THE SAME. * 

* * 

***************************************************************** 



DD00 



ORG 



BIOS 



7 CBIOS STARTING ADDRESS 



DD00 


C370E6 




JMP 


CBOOT 




DD03 


C352DF 


WBOOTE 


JMP 


WBOOT 




DD06 


C336DD 




JMP 


CONST 




DD09 


C342DD 




JMP 


CONIN 




DD0C 


C357DD 


COUT 


JMP 


CONOUT 




DD0F 


C377DD 




JMP 


LIST 




DD12 


C36CDD 




JMP 


PUNCH 




DD15 


C362DD 




JMP 


READER 




DD18 


C3E7DF 




JMP 


HOME 




DD1B 


C329E0 




JMP 


SETDRV 




DD1E 


C3E9DF 




JMP 


SETTRK 




DD21 


C3DBDF 




JMP 


SETSEC 




DD24 


C3E1DF 




JMP 


SETDMA 




DD27 


C32FE1 




JMP 


READ 




DD2A 


C328E1 




JMP 


WRITE 




DD2D 


C382DD 




JMP 


LISTST 




DD30 


C3EEDF 


',' « ■ !'" '■■," 


JMP 


SECTRAN 










IF 


MAXFLOP NE 





DD33 


C31BF4 


DJDRV 


JMP 
ELSE 


DJSEL 





COLD BOOT ENTRY POINT 

WARM BOOT ENTRY POINT 

CONSOLE STATUS ROUTINE 

CONSOLE INPUT 

CONSOLE OUTPUT 

LIST DEVICE OUTPUT 

PUNCH DEVICE OUTPUT 

READER DEVICE INPUT 

HOME DRIVE 

SELECT DISK 

SET TRACK 

SET SECTOR 

SET DMA ADDRESS 

READ THE DISK 

WRITE THE DISK 

LIST DEVICE STATUS 

SECTOR- TRANSLATION 



7 HOOK FOR SINGLE.COM PROGRAM 



CP/M MACRO ASSEM 2.0 #005 



JMP 

ENDIF 



*** Cbios For CP/M Ver. 2.2 *** 
DONOP 



***************************************************************** 

* * 

* TERMINAL DRIVER ROUTINES. IOBYTE IS INITIALIZED BY THE COLD * 

* BOOT ROUTINE, TO MODIFY, CHANGE THE "INTIOBY" EQUATE. THE * 

* I/O ROUTINES THAT FOLLOW ALL WORK EXACTLY THE SAME WAY. USING * 

* IOBYTE, THEY OBTAIN THE ADDRESS TO JUMP TO IN ORDER TO EXECUTE* 

* THE DESIRED FUNCTION. THERE IS A TABLE WITH FOUR ENTRIES FOR * 

* EACH OF THE POSSIBLE ASSIGNMENTS FOR EACH DEVICE. TO MODIFY * 

* THE I/O ROUTINES FOR A DIFFERENT I/O CONFIGURATION, JUST * 

* CHANGE THE ENTRIES IN THE TABLES. * 

* * 

***************************************************************** 



F003 = 
F006 = 



CITTY EQU 
COTTY EQU 



DJCIN 
DJCOUT 



; INPUT FROM THE DISK JOCKEY 2D 
7 OUTPUT TO THE DISK JOCKEY 2D 



***************************************************************** 

* * 

* CONST: GET THE STATUS FOR THE CURRENTLY ASSIGNED CONSOLE * 

* DEVICE. THE CONSOLE DEVICE CAN BE GOTTEN FROM IOBYTE, * 

* THEN A JUMP TO THE CORRECT CONSOLE STATUS ROUTINE IS * 

* PERFORMED. * 

* * 

***************************************************************** 



DD36 21B0DD 
DD39 C348DD 



CONST 



LXI 
JMP 



H,CSTBLE 
CONIN1 



; BEGINNING OF JUMP TABLE 
; SELECT CORRECT JUMP 



***************************************************************** 

* * 

* CSREADER: IF THE CONSOLE IS ASSIGNED TO THE READER THEN A * 

* JUMP WILL BE MADE HERE, WHERE ANOTHER JUMP WILL * 

* OCCUR TO THE CORRECT READER STATUS. * 

* * 

***************************************************************** 



DD3C 21B8DD 
DD3F C365DD 



CSREADR LXI 
JMP 



H,CSRTBLE 
READERA 



; BEGINNING OF READER STATUS TABLE 



***************************************************************** 

* * 

* CONIN: TAKE THE CORRECT JUMP FOR THE CONSOLE INPUT ROUTINE. * 

* THE JUMP IS BASED ON THE TWO LEAST SIGNIFICANT BITS OF * 

* IOBYTE. * 

* * 

***************************************************************** 



DD42 CDA2E1 
DD45 2188DD 



CONIN 



CALL 
LXI 



FLUSH 
H,CITBLE 



; FLUSH THE DISK BUFFER 

; BEGINNING OF CHARACTER INPUT TABLE 



* ENTRY AT CONIN1 WILL DECODE THE TWO LEAST SIGNIFICANT BITS 

* OF IOBYTE. THIS IS USED BY CONIN, CONOUT, AND CONST. 



cp/m macro ASSEM 2.0 



#006 



*** Cbios For CP/M Ver. 2.2 *** 



DD43 3A0300 
DD4B 17 



CONINl LDA 
RAL 



IOBYTE 



* ENTRY AT SELDEV WILL FORM AN OFFSET INTO THE TABLE POINTED 

* TO BY H&L AND THEN PICK UP THE ADDRESS AND JUMP THERE. 



DD4C E606 SELDEV ANI 


6H 


DD4E 1600 


MVI 


D, 


DD50 5F 


MOV 


E,A 


DD51 19 


DAD 


D 


DD52 7E 


MOV 


A,M 


DD53 23 


I NX 


H 


DD54 66 


MOV 


H,M 


DD55 6F 


MOV 


L,A 


DD56 E9 


PCHL 





; STRIP OFF UNWANTED BITS 
7 FORM OFFSET 

;ADD OFFSET 

;PICK UP HIGH BYTE 

?PICK UP LOW BYTE 
7 FORM ADDRESS 
;GO THERE ! 



***************************************************************** 

* * 

* CONOUT: TAKE THE PROPER BRANCH ADDRESS BASED ON THE TWO LEAST * 

* SIGNIFICANT BITS OF IOBYTE. * 

* * 

***************************************************************** 



DD57 C5 
DD58 CDA2E1 
DD5B CI 
DD5C 2190DD 
DD5F C348DD 



CONOUT PUSH B 

CALL FLUSH 

POP B 

LXI H,COTBLE 

JMP CONIN1 



;SAVE THE CHARACTER 

; FLUSH THE DISK BUFFER 

7 RESTORE THE CHARACTER 

7 BEGINNING OF THE CHARACTER OUT TABLE 

7 DO THE DECODE 



***************************************************************** 

* * 

* READER: SELECT THE CORRECT READER DEVICE FOR INPUT. THE * 

* READER IS SELECTED FROM BITS 2 AND 3 OF IOBYTE. * 

* ■■■ • ...... *. 

***************************************************************** 



DD62 21A8DD 



READER LXI 



H, RTBLE 



7 BEGINNING OF READER INPUT TABLE 



♦ENTRY AT READERA WILL DECODE BITS 2 & 3 OF IOBYTE, USED 

* BY CSREADER. 
* 



DD65 3A0300 



READERA LDA 



IOBYTE 



* ENTRY AT READER1 WILL SHIFT THE BITS INTO POSITION, USED 

* BY LIST AND PUNCH. 
* 



DD68 IF 
DD69 C34CDD 



READR1 RAR 
JMP 



SELDEV 



CP/M MACRO ASSEM 2.0 #007 *** Cbios For CP/M Ver. 2.2 *** 



***************************************************************** 

* * 

* PUNCH: SELECT THE CORRECT PUNCH DEVICE. THE SELECTION COMES * 

* FROM BITS 4&5 OF IOBYTE. * 

* * 

***************************************************************** 



DD6C 21A0DD 
DD6F 3A0300 



PUNCH 



LXI 

LDA 



H,PTBLE 
IOBYTE 



? BEGINNING OF PUNCH TABLE 



* ENTRY AT PNCH1 ROTATES BITS A LITTLE MORE IN PREP FOR 

* SELDEV, USED BY LIST. 
* 



DD72 IF 
DD73 IF 
DD74 C368DD 



PNCH1 RAR 
RAR 
JMP 



READR1 



***************************************************************** 

* * 

* LIST: SELECT A LIST DEVICE BASED ON BITS 6&7 OF IOBYTE * 

* * 

***************************************************************** 



DD77 2198DD 
DD7A 3A0300 
DD7D IF 
DD7E IF 
DD7F C372DD 



LIST LXI 

LIST1 LDA 

RAR 

RAR 

JMP 



H,LTBLE 
IOBYTE 



PNCH1 



7 BEGINNING OF THE LIST DEVICE ROUTINES 



***************************************************************** 

* * 

* LISTST: GET THE STATUS OF THE CURRENTLY ASSIGNED LIST DEVICE * 

* * 

***************************************************************** 



DD82 21C0DD 
DD85 C37ADD 



LISTST LXI 
JMP 



H,LSTBLE 
LIST1 



; BEGINNING OF THE LIST DEVICE STATUS 



***************************************************************** 

* * 

* IF CUSTOMIZING I/O ROUTINES IS BEING PERFORMED, THE TABLE * 

* BELOW SHOULD BE MODIFIED TO REFLECT THE CHANGES. ALL I/O * 

* DEVICES ARE DECODED OUT OF IOBYTE AND THE JUMP IS TAKEN FROM * 

* THE FOLLOWING TABLES. * 

■■* -■ - ,,. •« ■' . - *• 

***************************************************************** 



* CONSQLE INPUT TABLE 

* 



DD88 F3DD 



CITBLE DW 



CIUC1 



; INPUT FROM USER CONSOLE 1 (CURRENTLY 
SWBD PARALLEL PORT 4) 



CP/M MACRO ASSEM 2.0 #008 
DD8A 08DE DW 

DD8C 62DD DW 

DD8E 03F0 DW 



*** Cbios For CP/M Ver. 2.2 *** 

CICRT 

READER 

CITTY 



INPUT FROM CRT (CURRENTLY SWITCHBOARD 

SERIAL PORT 1) 
INPUT FROM READER (DEPENDS ON READER 

SELECTION) 
INPUT FROM TTY (CURRENTLY INPUT FROM 

DISK JOCKEY 2D) 



* CONSOLE OUTPUT TABLE 
* 



DD90 


3BDE 


COTBLE 


DW 


COCRT 


DD92 


3BDE 






DW 


COCRT 


DD94 


77DD 






DW 


LIST 


DD96 


06F0 






DW 


COTTY 






* 
* 
* 


LIST 


DEVICE 


TABLE 


DD98 


06F0 


LTBLE 


DW 


COTTY 


DD9A 


46DE 






DW 


COPTR 


DD9C 


C9DD 






DW 


COLPT 


DD9E 


D4DD 






DW 


COUL1 



OUTPUT TO CRT 
OUTPUT TO CRT 

OUTPUT TO LIST DEVICE (DEPENDS ON 
BITS 6&7 OF IOBYTE) 

OUTPUT TO TTY (CURRENTLY OUTPUT TO 
DISK JOCKEY 2D) 



OUTPUT TO TTY (CURRENTLY ASSIGNED 

BY INTIOBY, OUTPUT TO 2D) 
OUTPUT TO PRINTER 

OUTPUT TO LINE PRINTER (CURRENTLY 
SWITCHBOARD SERIAL PORT 1) 

OUTPUT TO USER LINE PRINTER 1 (CURRENTLY 
SWITCHBOARD SERIAL PORT 1) 







* 

* 


PUNCH 


DEVICE 


TABLE 


DDA0 


06F0 


PTBLE 


DW 


COTTY 


DDA2 


46DE 






DW 


COPTR 


DDA4 


C9DD 






DW 


COUP1 


DDA6 


C9DD 






DW 


COUP 2 



OUTPUT TO THE TTY (CURRENTLY ASSIGNED 

BY INTIOBY, OUTPUT TO 2D) 
OUTPUT TO PRINTER 

OUTPUT TO USER PUNCH 1 (CURRENTLY 
SWITCHBOARD SERIAL PORT 1) 

OUTPUT TO USER PUNCH 2 (CURRNTLLY 
SWITCHBOARD SERIAL PORT 1) 



* READER DEVICE INPUT TABLE 



DDA8 03F0 
DDAA 08DE 
DDAC 08DE 
DDAE 08DE 



RTBLE 



DW 


CITTY 


DW 


CIPTR 


DW 


CIUR1 


DW 


CIUR2 



INPUT FROM TTY (CURRENTLY ASSIGNED 
BY INTIOBY, INPUT FROM 2D) 

INPUT FROM PAPER TAPE READER (CURRENTLY 
SWITCHBOARD SERIAL PORT 1) 

INPUT FROM USER READER 1 (CURRENTLY 
SWITCHBOARD SERIAL PORT 1) 

INPUT FROM USER READER 2 (CURRENTLY 



cp/m macro ASSEM 2.0 



#009 *** Cbios For CP/M Ver. 2.2 *** 

; SWITCHBOARD SERIAL PORT 1) 







* 
* 


CONSOLE STATUS TABLE 


DDB0 


FFDD 


CSTBLE 


DW 


CSUC1 


DDB2 


1CDE 






DW 


CSCRT 


DDB4 


3CDD 






DW 


CSREADR 


DDB6 


14DE 






DW 


CSTTY 



STATUS FROM SWBD PARALLEL PORT 4, AS 

READ FROM ATTN BIT 0) 
STATUS FROM CRT (CURRENTLY SWITCHBOARD 

SERIAL PORT 1) 
STATUS FROM READER (DEPENDS ON READER DEVICE ) 

STATUS OF TTY (CURRENTLY STSTUS FROM 
DISK JOCKEY 2D) 



* STATUS FROM READER DEVICE 
* 



DDB8 


14DE 


CSRTBLE 


DW 


CSTTY 


DDBA 


1CDE 




DW 


CSPTR 


DDBC 


1CDE 




DW 


CSUR1 


DDBE 


1CDE 




DW 


CSUR2 



STATUS FROM TTY (CURRENTLY ASSIGNED 

BY INTIOBY, STATUS OF 2D) 
STATUS FROM PAPER TAPE READER (CURRENTLY 

SWITCHBOARD SERIAL PORT 1) 
STATUS FROM USER READER 1 (CURRENTLY 

SWITCHBOARD SERIAL PORT 1) 
STATUS OF USER READER 2 (CURRENTLY 

SWITCHBOARD SERIAL PORT 1) 



* STATUS FROM LIST DEVICE 

* 



DDC0 


2ADE 


LSTBLE 


DW 


READY 


DDC2 


2ADE 




DW 


READY 


DDC4 


25DE 




DW 


LSLPT 


DDC6 


25DE 




DW 


LSLPT 



; CONSOLE ALWAYS READY 
;GET LIST STATUS 



DDC8 00 



* ROUTINES FOR MY SYSTEM. J. J. O'BRIEN 
* 



***************************************************************** 

* * 

* 
* 

***************************************************************** 

NOP 
***************************************************************** 

* * 

* THE FOLLOWING EQUATES SET OUTPUT DEVICE TO OUTPUT TO THE * 



* SWITCHBOARD SERIAL PORT 1. 



* 



***************************************************************** 



DDC9 


= 


COPTP 


EQU 


$ 


DDC9 


= 


COUP1 


EQU 


$ 


DDC9 


= 


COUP2 


EQU 


$ 


DDC9 


DB02 


COLPT 


IN 


2 


DDCB 


E680 




ANI 


80H 


DDCD 


CAC9DD 




JZ 


COLPT 


DDD0 


79 




MOV 


A,C 



; OUTPUT FROM PAPER TAPE PUNCH 

; OUTPUT FROM USER PUNCH 1 

; OUTPUT FROM USER PUNCH* 2 

; OUTPUT FROM LINE PRINTER, GET STATUS 

;WAIT UNTIL OK TO SEND 

; OUTPUT THE CHARACTER 



CP/M MACRO ASSEM 2.0 #010 *** Cbios For CP/M Ver. 2.2 *** 

1 



DDD1 D301 
DDD3 C9 



OUT 
RET 

***************************************************************** 

* * 

* CUSTOM I/O PRINTER DRIVER FOR DIABLO PRINTER WITH 1200 BAUD * 

* ETX/ACK HANDSHAKE. * 

* * 

***************************************************************** 



DDD4 


CDC9DD 


COUL1 


CALL 


COLPT 


DDD7 


3AF2DD 




LDA 


COUNT 


DDDA 


3D 




DCR 


A 


DDDB 


32F2DD 




STA 


COUNT 


DDDE 


C0 




RNZ 




DDDF 


3E4E 




MVI 


A, 78 


DDE1 


32F2DD 




STA 


COUNT 


DDE4 


0E03 




MVI 


C , AETX 


DDE6 


CDC9DD 




CALL 


COLPT 


DDE9 


CD08DE 


PWAIT 


CALL 


CIPTR 


DDEC 


FE06 




CPI 


AACK 


DDEE 


C2E9DD 




JNZ 


PWAIT 


DDF1 


C9 




RET 




DDF 2 


32 


COUNT 


DB 


50 



; OUTPUT THE CHARACTER 



**************************************************************** 

* * 

* THE FOLLOWING EQUATES SET THE INPUT TO COME FROM THE SWBD * 

* PARALLEL PORT 4, WITH STATUS ON ATTENTION PORT BIT 0. * 

* * 

**************************************************************** 



DDF3 DB03 
DDF5 E601 
DDF7 CAF3DD 
DDFA DB04 
DDFC E67F 
DDFE C9 

DDFF DB03 
DE01 E601 
DE03 EE01 
DE05 C317DE 



CIUC1 IN 3 ;GET ATTENTION BYTE 

;GET BIT ONLY 
;WAIT FOR CHARACTER 
;GET CHARACTER 
7 STRIP OFF THE PARITY 



IN 


3 


ANI 


1 


JZ 


CIUC1 


IN 


4 


ANI 


7FH 


RET 




IN 


3 


ANI 


1 


XRI 


1 


JMP 


STAT 



CSUC1 IN 3 ?GET ATTENTION BYTE 

;GET BIT ONLY 
; CHANGE POLARITY 
; RETURN PROPER INDICATION 

***************************************************************** 

* * 

* THE FOLLOWING EQUATES SET THE INPUT FROM THE DEVICES TO COME * 

* FROM THE SWITCHBOARD SERIAL PORT 1. * 

* * 

***************************************************************** 



DE08 = 


CICRT 


EQU 


$ 


DE08 = 


CIUR1 


EQU 


$ 


DE08 = 


CIUR2 


EQU 


$ 


DE08 DB02 


CIPTR 


IN 


2 



; INPUT FROM CRT 

; INPUT FROM USER READER 1 

; INPUT FROM USER READER 2 

; INPUT FROM PAPER TAPE READER, GET STATUS 



CP/M MACRO ASSEM 2.0 #011 *** Cbios For CP/M Ver. 2.2 *** 

;WAIT FOR CHARACTER 



DE0A E640 
DE0C CA08DE 
DE0F DB01 
DE11 E67F 
DE13 C9 



ANI 


40H 


JZ 


CIPTR 


IN 


1 


ANI 


7FH 


RET 





; STRIP OFF THE PARITY 



***************************************************************** 
* * 

* 
* 
***************************************************************** 



* CONSOLE STATUS ROUTINES, TEST IF A CHARACTER HAS ARRIVED. 

* 



DE14 CD21F0 
DE17 3E00 
DE19 C0 
DE1A 3D 
DE1B C9 



CSTTY CALL 

STAT MVI 

RNZ 

DCR 

RET 



DJTSTAT 
A,0 



; STATUS FROM DISK JOCKEY 2D 

;PREP FOR ZERO RETURN 

? NOTHING FOUND 

; RETURN WITH 0FFH 



***************************************************************** 

* * 

* THE FOLLOWING EQUATES CAUSE THE DEVICES TO GET STATUS FROM * 

* THE SWITCHBOARD SERIAL PORT 1. * 

* * 
***************************************************************** 



; STATUS OF USER READER 1 

; STATUS OF USER READER 2 

; STATUS OF PAPER TAPE READER 

? STATUS FROM CRT, GET STATUS 

; STRIP OF DATA READY BIT 

;MAKE CORRECT POLARITY 

? RETURN PROPER INDICATION 

***************************************************************** 
* * 

* 
* 
***************************************************************** 



DE1C 


= 


CSUR1 


EQU 


$ 


DE1C 


= 


CSUR2 


EQU 


$ 


DE1C 


= 


CSPTR 


EQU 


$ 


DE1C 


DB02 


CSCRT 


IN 


2 


DE1E 


E640 




ANI 


40H 


DE20 


EE40 




XRI 


40H 


DE22 


C317DE 




JMP 


STAT 



* LIST DEVICE STATUS ROUTINES. 

* 



DE25 


DB02 


LSLPT 


IN 


2 


DE27 


E680 




ANI 


80H 


DE29 


C8 




RZ 




DE2A 


3EFF 


READY 


MVI 


A,0 


DE2C 


C9 




RET 





;ALL OTHER DEVICES WAIT 



***************************************************************** 

* * 

* THIS INITIALLIZING ROUTINE SAMPLES BIT OF SWBD PORT 7 TO * 

* DETERMINE IF THE KEYBOARD IS PLUGGED IN. IF THE KEYBOARD IS * 

* PLUGGED IN, THE LSB RETURNS A 0. OTHERWISE, IT IS A 1. * 

* THIS 1 IS ADDED TO IOBYTE TO CHANGE THE CONSOLE INPUT FROM * 

* THE SWBD PARALLEL PORT 4 (THE KEYBOARD) TO THE SWBD SERIAL * 

* PORT THAT RECEIVES RS232 DATA FROM THE RS232 TERMINAL. * 

* * 

******************** * * ********* * * ******************************** 



CP/M MACRO ASSEM 2.0 #012 *** Cbios For CP/M Ver. 2.2 *** 



DE2D 


0E1A 


TINIT 


MVI 


C, CLEAR 


DE2F 


DB07 




IN 


7 


DE31 


E601 




ANI 


1 


DE33 


C6C0 




ADI 


I NT I OB Y 


DE35 


320300 




STA 


IOBYTE 


DE38 


C30CDD 




JMP 


COUT 



; INITIALIZE THE TERMINAL ROUTINE 
;GET KEYBOARD INTERLOCK BYTE 
;GET BIT 1 ONLY 
;ADD INTIOBY TO KEYBOARD BIT 
; INITIALIZE IOBYTE 



***************************************************************** 

* * 

* VIO-X VIDEO DRIVER * 

* * 

***************************************************************** 



DE3B DB09 


COCRT 


IN 


9 


DE3D E601 




ANI 


1 


DE3F CA3BDE 




JZ 


COCRT 


DE42 79 




MOV 


A,C 


DE43 D308 




OUT 


8 


DE45 C9 




RET 





;READ STATUS PORT 
?MASK TXRDY BIT 
;WAIT FOR READY 
;GET CHAR 
; OUTPUT IT 
;ALL DONE 



***************************************************************** 
* * 

* 
* 
* 
***************************************************************** 



* ROUTINE FOR OKI DATA PRINTER 

* PRINTER IS ON PORT WITH PRINTER READY ON PORT 5 BIT 1 
* 



DE46 DB02 


COPTR 


IN 


2 


DE48 E608 




ANI 


8 


DE4A CA46DE 




JZ 


COPTR 


DE4D DB05 


COPTR1 


IN 


5 


DE4F E601 




ANI 


1 


DE51 CA4DDE 




JZ 


COPTR1 


DE54 79 




MOV 


A,C 


DE55 D300 




OUT 





DE57 C9 




RET 





; INPUT FROM PORT 2 
;WAIT UNTIL OK TO SEND 

; BUFFER FULL? 

;WAIT UNTIL PRINTER READY 
; OUTPUT THE CHARACTER 



***************************************************************** 

* * 

* GOCPM IS THE ENTRY POINT FROM COLD BOOTS, AND WARM BOOTS. IT * 

* INITIALIZES SOME OF THE LOCATIONS IN PAGE 0, AND SETS UP THE * 

* INITIAL DMA ADDRESS (80H). * 

* * 

***************************************************************** 



DE58 


218000 


DE5B 


CDE1DF 


DE5E 


3EC3 


DE60 


320000 


DE63 


320500 


DE66 


2103DD 


DE69 


220100 


DE6C 


2106CF 


DE6F 


220600 


DE72 


AF 


DE73 


329BE5 



GOCPM 



LXI 


H,BUFF 


CALL 


SETDMA 


MVI 


A, (JMP) 


STA 


WBOT 


STA 


ENTRY 


LXI 


H,WBOOTE 


SELD 


WBOT+1 


LXI 


H,BDOS+6 


SHLD 


ENTRY+1 


XRA 


A 


STA 


BUFSEC 



;SET UP INITIAL DMA ADDRESS 

INITIALIZE JUMP TO WARM BOOT 

; INITIALIZE JUMP TO BDOS 
; ADDRESS IN WARM BOOT JUMP 

; ADDRESS IN BDOS JUMP 

;A ,<-, 

yDISK JOCKEY BUFFER EMPTY 



cp/m macro ASSEM 2.0 



#013 



! ** Cbios For CP/M Ver. 2.2 *** 



DE76 32A3E1 
DE79 3A0400 
DE7C 4F 
DE7D 3ABCDE 



DE80 21E1DE 
DE83 22DCCD 
DE86 2121DF 
DE89 22EDCD 
DE8C 21BDDE 
DE8F 2289CA 



STA 


BUFWRTN 


LDA 


CDISK 


MOV 


C,A 


LDA 


CWFLG 



$.( 



A 



LXI 


H, CHECK 


SHLD 


CCP+6DCH 


LXI 


H,USRRST 


SHLD 


CCP+6EDH 


LXI 


H,PROMPl 


SHLD 


CCP+389H 



;SET BUFFER NOT DIRTY FLAG 

;JUMP TO CP/M WITH CURRENTLY SELECTED DISK IN C 



USER ENHANCEMENTS FROM MICROSYSTEMS 
VOL 3 /NO 2 MAR/ APR 1982 PAGE 36 

LOAD ADR OF CHECK ROUTINE 
STORE AT CP/M PATCH 2 
LOAD ADR OF USRRST ROUTINE 
STORE AT CP/M PATCH 3 
LOAD ADR OF PROMPT ROUTINE 
STORE AT CP/M PATCH 1 

END OF ENHANCEMENTS 



DE92 


A7 




ANA 


A 




DE93 


1142DF 




LXI 


D,COLDBEG 


; BEGINNING OF INITIAL COMMAND 


DE96 


3E0F 




MVI 


A, COLDEND- 


-COLDBEG+1 7 LENGTH OF COMMAND 


DE98 


CAA0DE 




JZ 


CLDCMND 




DE9B 


1151DF 




LXI 


D,WARMBEG 




DE9E 


3E01 




MVI 


A,WARMEND- 


-WARMBEG+1 


DEA0 


2108C7 


CLDCMND 


LXI 


H,CCP+8 


; COMMAND BUFFER 


DEA3 


3207C7 




STA 


CCP+7 




DEA6 


47 




MOV 


B,A 




DEA7 


CD6AE2 




CALL 


MOVLOP 




DEAA 


3ABCDE 




LDA 


CWFLG 




DEAD 


A7 




ANA 


A 




DEAE 


3A41DF 




LDA 


AUTOFLG 




DEB1 


CAB5DE 




JZ 


CLDBOT 




DEB4 


IF 




RAR 






DEB5 


IF 


CLDBOT 


RAR 






DEB6 


DA00C7 




JC 


CCP 




DEB9 


C303C7 




JMP 


CCP+3 


; ENTER CP/M 


DEBC 


00 


CWFLG 


DB 





; COLD/WARM BOOT FLAG 



***************************************************************** 



* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 



THE FOLLOWING ROUTINES: PROMP1, CHECK, USRRST ARE FROM THE 
MAR/ APR 1982 MICROSYSTEMS, VOL3/N02. IF CP/M CANNOT FIND THE 
REQUESTED PROGRAM IN THE DIRECTORY FOR THE LOGGED USER, 
THEN THE CURRENT USER NUMBER IS SAVED, THE USER NUMBER 
CHANGED TO AND THE SEARCH DONE AGAIN. IF FOUND, LOADED. 
THE ORIGINAL USER NUMBER IS RESTORED AND OPERATION RESUMES. 
NOTE: THIS ONLY WORKS IF THE CCP IS SEARCHING. TRANSIENT 
PROGRAMS SUCH AS BASIC WILL NOT GET THIS TREATMENT. FURTHER, 
THE PROMPT IS CHANGED TO INDICATE THE USER NUMBER. ' 5A> ' IS 
THE NEW PROMPT FOT USER 5, DISK A. JJO 3/24/82 



0005 = 
C7D0 = 



BDOSE EQU 
OPEN EQU 



CCP+0D0H 



;ADR OF BDOS ENTRY POINT 
;USED FOR SYSTEM CALLS 
jCALL THIS LOCATION TO 
; RE-INITIATE THE SEARCH 



CP/M MACRO ASSEM 2.0 #014 



*** Cbios For CP/M Ver. 2.2 *** 



CE6B = 
CE01 - 
CODE = 
C78C = 
C8D0 = 



NFOUND EQU 

EOF EQU 

RFILE EQU 

PCHAR EQU 

CPMPT EQU 



CCP+76BH 

CCP+701H 

CCP+6DEH 

CCP+8CH 

CCP+1D0H 



FOR FILE IN DIR 

ADR TO RETURN TO IF 

FILE NOT FOUND 

JUMP TO THIS ADR AFTER USER 

NUMBER RESTORE OPERATION 

JUMP TO THIS ADR TO READ FILE 

CALL THIS LOCATION TO PRINT 
USER NUMBER PROMPT CHARACTERS 
JUMP TO THIS LOCATION AFTER 
PRINTING USER NUMBER PROMPT 



***************************************************************** 

* * 

* ROUTINE TO MODIFY CP/M PROMPT * 

* * 

***************************************************************** 



DEBD 


C5 


PROMP1 : 


PUSH 


B 


DEBE 


D5 




PUSH 


D 


DEBF 


0E20 




MVI 


C20H 


DEC1 


1EFF 




MVI 


E , 0FFH 


DEC3 


CD0500 




CALL 


BDOSE 


DEC6 


FE0A 




CPI 


0AH 


DEC8 


D2D5DE 




JNC 


CHAR2 


DECB 


C630 


PMT1: 


AD I 


30H 


DECD 


CD8CC7 




CALL 


PCHAR 


DED0 


Dl 


EXIT1: 


POP 


D 


DED1 


CI 




POP 


B 


DED2 


C3D0C8 




JMP 


CPMPT 


DED5 


D60A 


CHAR2 


SUI 


0AH 


DED7 


F5 




PUSH 


PSW 


DED8 


3E31 




MVI 


A,31H 


DEDA 


CD8CC7 




CALL 


PCHAR 


DEDD 


Fl 




POP 


PSW 


DEDE 


C3CBDE 




JMP 


PMT1 



; SYSTEM CALL TO GET USER NUMBER 
;GETS CURRENT USER IN A 

;IS USER NUMBER > 10 ? 

;IF SO MUST PRINT TWO NUMBERS 

; OTHERWISE MAKE ASCII 

; OUTPUT NUMBER TO CONSOLE 



;ALL DONE 

;USER IS > 10 SO SUBTRACT 10 
;SAVE RESULT ON STACK 
;SEND ASCII 1 TO CONSOLE 

; RECOVER REMAINDER 

;JUMP TO OUTPUT REMAINDER 

***************************************************************** 

* * 

* ROUTINE TO CHECK DIR FOR FILE * 

* * 

***************************************************************** 



DEE1 


D5 CHECK: PUSH 


D 


DEE2 


C5 


PUSH 


B 


DEE3 


F5 


PUSH 


PSW 


DEE4 


3E00 


MVI 


A,0 


DEE6 


323FDF 


STA 


FLAG 


DEE9 


1EFF 


MVI 


E,0FFH 


DEEB 


0E20 


MVI 


C,20H 


DEED 


CD0500 


CALL 


BDOSE 


DEF0 


3240DF 


STA 


USER 


DEF3 


B7 


ORA 


A 


DEF4 


C2FADE 


JNZ 


NUSER0 


DEF7 


C310DF 


JMP 


EXIT 



; RESET FLAG 

;FLAG INDICATES THAT THE USER 
; NUMBER CHANGED IF IT IS SET 
; INTERROGATE CURRENT USER NO. 



; STORE CURRENT USER NUMBER 

; CHECK FOR USER 

;NOT USER 

; IP USER GO TO CCP 



cp/m macro ASSEM 2.0 



#015 



*** Cbios For CP/M Ver. 2.2 *** 



DEFA 


0E20 


NUSER0 : 


MVI 


C,20H 


DEFC 


1E00 




MVI 


E,0 


DEFE 


CD0500 




CALL 


BDOSE 


DF01 


CDD0C7 




CALL 


OPEN 


DF04 


C216DF 




JNZ 


FOUND 



DF07 3A40DF 



LDA 



USER 



DF0A 


5F 




MOV 


E,A 


DF0B 


0E20 




MVI 


C,20H 


DF0D 


CD0500 




CALL 


BDOSE 


DF10 


Fl 


EXIT: 


POP 


PSW 


DF11 


CI 




POP 


B 


DF12 


Dl 




POP 


D 


DF13 


C36BCE 




JMP 


NFOUND 


DF16 


Fl 


FOUND : 


POP 


PSW 


DF17 


CI 




POP 


B 


DF18 


Dl 




POP 


D 


DF19 


3E01 




MVI 


A,l 


DF1B 


323FDF 




STA 


FLAG 


DF1E 


C3DECD 




JMP 


RFILE 



;SET USER NUMBER TO 



? RE-INITIATE SEARCH 

; IF A RETURNED NON-ZERO THEN FILE 
?WAS FOUND IN USER DIRECTORY 
; OTHERWISE FILE NOT FOUND IN 
;USER SO RESTORE USER NUMBER 



TO CCP IF FILE NOT FOUND 

FILE FOUND IN USER DIRECTORY 



rSET FLAG FOR RESTORE OPERATION 
; AFTER FILE IS LOADED 
;GO CCP AND READ FILE 

************************************************************* 

* * 

* ROUTINE TO RESTORE USER NUMBER AFTER LOADING FILE * 

* FROM USER DIRECTORY * 

* * 

***************************************************************** 



DF21 


D5 


USRRST : 


PUSH 


D 


DF22 


C5 




PUSH 


B 


DF23 


F5 




PUSH 


PSW 


DF24 


3A3FDF 




LDA 


FLAG 


DF27 


B7 




ORA 


A 


DF28 


CA39DF 




JZ 


RSTR1 


DF2B 


3A40DF 




LDA 


USER 


DF2E 


5F 




MOV 


E,A 


DF2F 


0E20 




MVI 


C20H 


DF31 


CD0500 




CALL 


BDOSE 


DF34 


3E00 




MVI 


A,0 


DF36 


323FDF 




STA 


FLAG 


DF39 


Fl 


RSTR1 : 


POP 


PSW 


DF3A 


CI 




POP 


B 


DF3B 


Dl 




POP 


D 


DF3C 


C301CE 




JMP 


EOF 


DF3F 


00 


FLAG: 


DB 





DF40 


00 


USER: 


DB 






; CHECK USER NUMBER FLAG 

;IF FLAG NOT SET NO RESTORE RQ'D 
;IF FLAG NON-ZERO THEN GET USER 

; NUMBER 
; RESTORE USER NUMBER 



; RESET FLAG 



RETURN TO CCP AT EOF 

SET FLAG INITIALLY TO 

SET TEMP USER INITIALLY TO 

***************************************************************** 

* * 

* THE FOLLOWING: BYTE DETERMINES IF AN INITIAL COMMAND IS TO BE * 

* GIVEN TO CP/M ON WARM OR COLD BOOTS. THE VALUE OF THE BYTE IS * 



CP/M MACRO ASSEM 2.0 #016 



** Cbios For CP/M Ver. 2.2 *** 



DF41 01 



* USED TO GIVE THE COMMAND TO CP/M: 
* 

* = NEVER GIVE COMMAND. 

* 1 ■ GIVE COMMAND ON COLD BOOTS ONLY. 

* 2 = GIVE THE COMMAND ON WARM BOOTS ONLY. 

* 3 = GIVE THE COMMAND ON WARM AND COLD BOOTS. 



* 

* 
* 
* 

***************************************************************** 



AUTOFLG DB 



;AUTO COMMAND FEATURE 






***************************************************************** 

* * 

* IF THERE IS A COMMAND INSERTED HERE, IT WILL BE GIVEN IF THE * 

* AUTO FEATURE IS ENABLED. * 

* FOR EXAMPLE: * 

* * 

* COLDBEG DB 'MBASIC MYPROG ' * 

* COLDEND DB * 

* * 



* WILL EXECUTE MICROSOFT BASIC, AND MBASIC WILL EXECUTE THE * 

* "MYPROG" BASIC PROGRAM. * 

* * 

***************************************************************** 



DF42 5355424D49COLDBEG DB 

COLDEND DB 
WARMBEG DB 



DF50 00 
DF51 00 



WARMEND DB 



' SUBMIT STARTUP ' ; COLD BOOT COMMAND 



' ' ;WARM BOOT COMMAND GOES HERE 





.-*• ■<""" 



***************************************************************** 

* * 

* WBOOT LOADS IN ALL OF CP/M EXCEPT THE CBIOS, THEN INITIALIZES * 

* SYSTEM PARAMETERS AS IN COLD BOOT. SEE THE COLD BOOT LOADER * 

* LISTING FOR EXACTLY WHAT HAPPENS DURING WARM AND COLD BOOTS. * 

* * 
***************************************************************** 



DF52 


310001 


WBOOT LXI 


SP,TPA 


DF55 


3E01 


MVI 


A,l 


DF56 


= 


WFLG EQU 


$-1 


DF57 


A7 


ANA 


■•■ A ■ 


DF58 


3E01 


MVI 


A,l 


DF5A 


3256DF 


STA 


WFLG 


DF5D 


32BCDE 


STA 


CWFLG 


DF60 


CA58DE 


JZ 


GOCPM 


DF63 


AF 


XRA 


A 


DF64 


3256DF 


STA 


WFLG 


DF67 


4F 


MOV 


C,A 






IF 


(MAXHD 




:' 


LXI 


H, CCP- 






PUSH 


H 






STA 


HEAD 






MVI 


A, 4 






PUSH 


PSW 



;SET UP STACK POINTER 

?TEST IF BEGINNING OR 

t ENDING A WARM BOOT 



;SET COLD/ WARM BOOT FLAG 



(MAXHD NE 0) AND FIRST ; SUPPLY WARM BOOT FROM HARD DISK ? 
5H ; INITIAL DMA ADDRESS 

;SAVE FIRST SECTOR 



CP/M MACRO ASSEM 2.0 



#017 



*** Cbios For CP/M Ver. 2.2 *** 









CALL 


HDDRV 








MVI 


C,0 








CALL 


HDTRK 






WARMLOD 


POP 

POP 

INR 

STA 

CPI 

JZ 

INR 

INR 

SHLD 

PUSH 

PUSH 


PSW 

H 

A 

HDSECTR 

16 

WBOOT 

H 

H 

HDADD 

H 

PSW 






WARMRD 


LXI 


B,RETRIES*100H 






WRMREAD 


PUSH 

CALL 

POP 

JNC 

DCR 

JNZ 

HLT 

END IF 

IF 


B 

HDREAD 

B 

WARMLOD 

B 

WRMREAD 

(MAXFLOP NE 0) 


DF68 


CD33DD 




CALL 


DJDRV 


DF6B 


0E00 




MVI 


C,0 


DF6D 


CD2DF4 




CALL 


DJDEN 


DF70 


0E00 




MVI 


C,0 


DF72 


CD30F4 




CALL 


DJSIDE 


DF75 


3E0F 




MVI 


A, 15 


DF77 


3295DF 




STA 


NEWSEC 


DF7A 


2100C6 




LXI 


H,CCP-100H 


DF7D 


22B4DF 




SHLD 


NEWDMA 


DF80 


CD94DF 




CALL 


WARMLOD 


DF83 


0100CC 




LXI 


B,CCP+500H 


DF86 


CD12F4 




CALL 


DJDMA 


DF89 


0E08 




MVI 


C,8 


DF8B 


CD0FF4 




CALL 


DJSEC 


DF8E 


CDC8DF 




CALL 


WARMRD 


DF91 


C303CC 




JMP 


CCP+503H 


DF94 


3E0F 


WARMLOD 


MVI 


A, 15 


DF95 


= 


NEWSEC 


EQU 


$-1 


DF96 


3C 




INR 


A 


DF97 


3C 




INR 


A 


DF98 


FE1B 




CPI 


27 


DF9A 


DAACDF 




JC 


NOWRAP 


DF9D 


D609 




SUI 


9 


DF9F 


FE13 


" ■' ■"'" 


CPI 


19 


DFA1 


C8 




RZ 




DFA2 


2AB4DF 




LHLD 


NEWDMA 


DFA5 


1180FB 




LXI 


D,-480H 


DFA8 


19 




DAD 


D 


DFA9 


22B4DF 




SHLD 


NEWDMA ' 


DFAC 


3295DF 


NOWRAP 


STA 


NEWSEC 



; SELECT DRIVE A 

;HOME THE DRIVE 
; RESTORE SECTOR 
; RESTORE DMA ADDRESS 



;PAST BDOS ? 

;YES, ALL DONE 

; UPDATE DMA ADDRESS 



i ; RETRY COUNTER 
;SAVE THE RETRY COUNT 
;READ THE SECTOR 

;TEST FOR ERROR 

; UPDATE THE ERROR COUNT 

;KEEP TRYING IF NOT TO MANY ERRORS 

; CAN'T WARM BOOT 



AND NOT FIRST ; SUPPLY WARM BOOT FROM 2D ? 
7 SELECT DRIVE A 
; SELECT SINGLE DENSITY 

; SELECT SIDE 

.•INITIALIZE THE SECTOR TO READ 

;AND THE DMA ADDRESS 

;READ IN CP/M 

?LOAD ADDRESS FOR REST OF WARM BOOT 



; PREVIOUS SECTOR 

? UPDATE THE PREVIOUS SECTOR 

7 WAS IT THE LAST ? 

;YES 



;SAVE THE NEW SECTOR TO READ 
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DFAF 


4F 


MOV 


C,A 


DFB0 


CD0FF4 


CALL 


DJSEC 


DFB3 


2100C6 


LXI 


H,CCP-100H 


DFB4 


= 


NEWDMA EQU 


$-2 


DFB6 


110001 


LXI 


D,100H 


DFB9 


19 


DAD 


D 


DFBA 


22B4DF 


SHLD 


NEWDMA 


DFBD 


44 


MOV 


B,H 


DFBE 


4D 


MOV 


C,L 


DFBF 


CD12F4 


CALL 


DJDMA 


DFC2 


CDC8DF 


CALL 


WARMRD 


DFC5 


C394DF 


JMP 


WARMLOD 


DFC8 


01000A 


WARMRD LXI 


B, RETRIES* 


DFCB 


C5 


WRMREAD PUSH 


B 


DFCC 


CD0CF4 


CALL 


DJTRK 


DFCF 


CD15F4 


CALL 


DJREAD 


DFD2 


CI 


POP 


B 


DFD3 


D0 


RNC 




DFD4 


05 


DCR 


B 


DFD5 


C2CBDF 


JNZ 


WRMREAD 


DFD8 


C32AF4 


JMP 
ENDIF 


DJERR 



;GET THE PREVIOUS DMA ADDRESS 
; UPDATE THE DMA ADDRESS 
;SAVE THE DMA ADDRESS 

;SET THE DMA ADDRESS 



;SET THE TRACK 
;READ THE SECTOR 

; CONTINUE IF SUCCESSFUL 

;KEEP TRYING 



**************************************************************** 

* * 

* SETSEC JUST SAVES THE DESIRED SECTOR TO SEEK TO UNTIL AN * 

* ACTUAL READ OR WRITE IS ATTEMPTED. * 

* * 

***************************************************************** 



DFDB 


60 


SETSEC 


MOV 


H» B 


DFDC 


69 




MOV 


L,C 


DFDD 


2293E5 




SHLD 


CPMSEC 


DFE0 


C9 


DONOP 


RET 





***************************************************************** 
* * 

* 
* 
***************************************************************** 



* SETDMA SAVES THE DMA ADDRESS FOR THE DATA TRANSFER. 

* 



DFE1 


60 


SETDMA 


MOV 


H,B 


DFE2 


69 




MOV 


JLj t c* 


DFE3 


2283E1 




SHLD 


CPMDMA 


DFE6 


C9 




RET 





DFE7 0E00 



;HL <- BC 

;CP/M DMA ADDRESS 



***************************************************************** 

* * 

* HOME IS TRANSLATED INTO A SEEK TO TRACK ZERO. * 

* * 
***************************************************************** 

HOME MVI C,0 ; TRACK TO SEEK TO 

***************************************************************** 
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* * 

* SETTRK SAVES THE TRACK # TO SEEK TO. NOTHING IS DONE AT THIS * 

* POINT, EVERYTHING IS DEFFERED UNTIL A READ OR WRITE. * 

* * 

***************************************************************** 



DFE9 


79 


SETTRK 


MOV 


A,C 


DFEA 


3296E5 




STA 


CPMTRK 


DFED 


C9 




RET 





;A <- TRACK # 
;CP/M TRACK # 



***************************************************************** 

* * 

* SECTRAN TRANSLATES A LOGICAL SECTOR # INTO A PHYSICAL SECTOR * 

* #. * 

* * 

***************************************************************** 



DFEE 3A95E5 



DFF1 FE02 
DFF3 D225E0 



IF 


(MAXHD NE 0) 


SECTRAN LDA 


CPMDRV 


IF 


FIRST 


CPI 


MAXHD*LOGDSK 


JC 


TRANHD 


ELSE 




CPI 


MAXFLOP 


JNC 


TRANHD 


END IF 




ENDIF 





(MAXHD NE 0) AND (MAXFLOP NE 0) jBOTH TYPES ? 

;GET THE DRIVE NUMBER 



;OVER THE # OF HARD DISKS ? 
;OVER THE # OF FLOPPIES ? 



IF 



(MAXHD EQ 0) OR (MAXFLOP EQ 0) ; JUST ONE TYPE ? 







SECTRAN 


EQU 
ENDIF 


? 










IF 


MAXFLOP NE 





DFF6 


03 


TRANFP 


I NX 


B 




DFF7 


D5 




PUSH 


D 




DFF8 


C5 




PUSH 


B 




DFF9 


CD07E1 




CALL 


GETDPB 




DFFC 


7E 




MOV 


A,M 




DFFD 


B7 




ORA 


A 




DFFE 


IF 




RAR 






DFFF 


91 




SUB 


C 




E000 


F5 




PUSH 


PSW 




E001 


FA0DE0 




JM 


SIDETWO 




E004 


Fl 


SIDE A 


POP 


PSW 




E005 


CI 




POP 


B 




E006 


Dl 




POP 


D 




E007 


EB 


SIDEONE 


XCHG 






E008 


09 




DAD 


B 




E009 


6E 




MOV 


L,M 




E00A 


2600 


'- 


MVI 


H,0 




E00C 


C9 




RET 






E00D 


010F00 


SIDETWO 


LXI 


B,15 




E010 


09 




DAD 


B 





; FLOPPY TRANSLATION 

;SAVE TABLE ADDRESS 

;SAVE SECTOR # 

;GET DPB ADDRESS INTO HL 

;GET # OF CP/M SECTORS/TRACK 

; CLEAR CARY 

; DIVIDE BY TWO 

;SAVE ADJUSTED SECTOR 

.•DISCARD ADJUSTED SECTOR 
; RESTORE SECTOR REQUESTED 
;RESTOR ADDRESS OF XLT TABLE 
;HL <- & (TRANSLATION TABLE) 
;BC = OFFSET INTO TABLE 
;HL <- PHYSICAL SECTOR 



; OFFSET TO SIDE BIT 
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E011 


7E 


E012 


E608 


E014 


CA04E0 


E017 


Fl 


E018 


CI 


E019 


2F 


E01A 


3C 


E01B 


4F 


E01C 


Dl 


E01D 


CD07E0 


E020 


3E80 


E022 


B4 


E023 


67 


E024 


C9 



E025 60 
E026 69 
E027 23 
E028 C9 



MOV 


A,M 


ANI 


8 


JZ 


SIDEA 


POP 


PSW 


POP 


B 


CMA 




INR 


A 


MOV 


C,A 


POP 


D 


CALL 


SIDEONE 


MVI 


A, 80H 


ORA 


H 


MOV 


H,A 


RET 




END IF 




IF 


MAXHD NE 


MOV 


H,B 


MOV 


L,C 


I NX 


H 


RET 




ENDIF 





;TEST FOR DOUBLE SIDED 
7MEDIA IS ONLY SINGLE SIDED 
; RETRIEVE ADJUSTED SECTOR 

;MAKE SECTOR REQUEST POSITIVE 

;MAKE NEW SECTOR THE REQUESTED SECTOR 



;SIDE TWO BIT 

: AND SECTOR 



;HARD DISK TRANSLATION ROUTINE 



***************************************************************** 



* SETDRV SELECTS THE NEXT DRIVE TO BE USED IN READ/WRITE 

* OPERATIONS. IF THE DRIVE HAS NEVER BEEN SELECTED BEFORE, A 

* PARAMETER TABLE IS CREATED WHICH CORRECTLY DESCRIBES THE 

* DISKETTE CURRENTLY IN THE DRIVE. DISKETTES CAN BE OF FOUR 

* DIFFERENT SECTOR SIZES: 

* 1) 128 BYTES SINGLE DENSITY. 

* 2) 256 BYTES DOUBLE DENSITY. 

* 3) 512 BYTES DOUBLE DENSITY. 

* 4) 1024 BYTES DOUBLE DENSITY. 
* 

***************************************************************** 



* 
* 
* 
* 
* 
* 
* 
* 
* 
* 



E029 79 
E02A 3295E5 
E02D FE05 
E02F D2F8E0 
E032 7B 
E033 E601 
E035 C2DFE0 



E038 3A95E5 



SETDRV 



E03B FE02 
E03D D295E0 



MOV 
STA 
CPI 
JNC 
MOV 
ANI 
JNZ 

IF 
LDA 

IF 

CPI 

JC 

SUI 

ELSE 

CPI 

JNC 

ENDIF 



A,C ;SAVE THE DRIVE # 

CPMDRV 

MAXFLOP+(MAXHD*LOGDSK) ; CHECK FOR A VALID DRIVE # 

ZRET ; ILLEGAL DRIVE # 

A,E ;TEST IF DRIVE EVER LOGGED IN BEFORE 

1 

SETDRV1 ;BIT OF E = -> NEVER SELECTED BEFORE 

(MAXHD NE 0) AND (MAXFLOP NE 0) ;BOTH TYPES ? 

CPMDRV ;GET THE DRIVE NUMBER 

FIRST 

MAXHD*LOGDSK ;OVER THE # OF HARD DISKS ? 

DRVHD 

MAXHDfLOGDSK 



MAXFLOP 
SUBFP 



;OVER THE # OF FLOPPIES ? 
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ENDIF 



E040 
E043 
E046 
E048 
E04B 
E04E 
E051 
E054 
E056 
E057 
E058 
E05B 
E05C 
E05E 
E05F 
E060 
E063 
E064 
E065 
E067 
E06A 
E06D 
E06E 
E06F 
E072 

E073 
E074 
E076 
E077 
E079 
E07A 
E07C 
E07F 
E082 
E085 



210100 

2297E5 

3E01 

3296E5 

CD34E2 

DAF8E0 

CD27F4 

E60C 

F5 

IF 

2120E1 

5F 

1600 

19 

E5 

CD07E1 

EB 

Dl 

0602 

CD6AE2 

110800 

19 

E5 

2A07F0 

23 

7E 

EE03 

6F 

26F3 

7E 

E608 

1193E4 

C285E0 

11D3E4 

EB 



IF 

MOV 

MVI 

FLOPFLG EQU 
ANA 
JNZ 
MVI 
LXI 
MVI 

CLOPP CMP 
JNZ 
DCR 
JNZ 
CALL 
MVI 
STA 
ENDIF 
IF 

FLOPOK LXI 
SHLD 
MVI 
STA 
CALL 
JC 

CALL 
ANI 
PUSH 
RAR 
LXI 
MOV 
MVI 
DAD 
PUSH 
CALL 
XCHG 
POP 
MVI 
CALL 
LXI 
DAD 
PUSH 
LHLD 
I NX 

MOV 
XRI 
MOV 
MVI 
MOV 
ANI 



SID 



'** Cbios For CP/M Ver. 2.2 *** 



(MAXFLOP NE 0) AND FIRST 



C,A 

A,0 

$-1 

A 

FLOPOK 

B,17 

H,DJBOOT 

A, (JMP) 

M 

ZRET 

B 

CLOPP 

DJBOOT 

A,l 

FLOPFLG 

MAXFLOP NE 

H,l 

TRUESEC 

A,l 

CPMTRK 

FILL 

ZRET 

DJSTAT 

0CH 

PSW 

H,XLTS 

E,A 

D,0 

D 

H 

GETDPB 

D 
B,2 

MOVLOP 

D,8 

D 

H 

ORIGIN+7 

H 



;SAVE DRIVE # 

?HAVE THE FLOPPIES BEEN ACCESSED YET ? 



; FLOPPIES HAVN'T BEEN ACCESSED 

; CHECK IF 2D CONTROLLER IS INSTALLED 



; INITIALIZE THE CONTROLLER 
;SAVE 2D INITIALIZED FLAG 



; SELECT SECTOR 1 OF TRACK 1 



; FLUSH BUFFER AND REFILL 
;TEST FOR ERROR RETURN 
;GET STATUS ON CURRENT DRIVE 
; STRIP OFF UNWANTED BITS 
;USED TO SELECT A DPB 

; TABLE OF XLT ADDRESSES 



SAVE POINTER TO PROPER XLT 
GET DPH POINTER INTO DE 



; NUMBER OF BYTES TO MOVE 
;MOVE THE ADDRESS OF XLT 
; OFFSET TO DPB POINTER 
;HL <- &DPH.DPB 




rGET ADDRESS OF DJ TERMINAL OUT ROUTINE 
:BUMP TO LOOK AT ADDRESS OF 
UART STATUS LOCATION 

A,M 

3 ; ADJUST FOR PROPER REV DJ 

L,A 

H, (ORIGIN+300H)/100H 

A,M 

DBLSID ; CHECK DOUBLE SIDED BIT 

D/DPB128S ;BASE FOR SINGLE SIDED DPB ' S 

SIDEOK 

D,,DPB128D ;BASE OF DOUBLE SIDED DPB ' S 

;HL <- DBP BASE, DE <- &DPH.DPB 




G"*T 
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E086 Dl 
E087 Fl 
E088 17 
E089 17 
E08A 4F 
E08B 0600 
E08D 09 
E08E EB 
E08F 73 
E090 23 
E091 72 



E092 C3DFE0 
E095 D602 



SUBFP 



POP 

POP 

RAL 

RAL 

MOV 

MVI 

DAD 

XCHG 

MOV 

I NX 

MOV 

END IF 

IF 

JMP 

IF 

SUI 

END IF 

ENDIF 



D 
PSW 



C,A 
B,0 
B 

M f E 

H 

M,D 



.-RESTORE DE (POINTER INTO DPH) 
; OFFSET TO CORRECT DPB 



;PUT DPB ADDRESS IN DPH 



(MAXHD NE 0) AND (MAXFLOP NE 0) 

SETDRV1 ;SKIP OVER THE HARD DISK SELECT 

NOT FIRST 

MAXFLOP ; ADJUST THE DRIVE # 



E097 
E09A 
E09B 
E09E 
E0A1 
E0A2 
E0A3 
E0A6 
E0A8 
E0AA 
E0AC 
E0AE 
E0B0 
E0B3 
E0B4 
E0B5 
E0B6 
E0B9 
E0BA 
E0BC 
E0BE 



CDFEE0 

79 

32C0E3 

CDAEE3 

7E 

3C 

C2DFE0 

F6FC 

D352 

3E05 

D350 

0EEF 

210000 

2B 

7C 

B5 

CCFCE0 

C8 

DB50 

E620 

C2B3E0 



IF 
DRVHD CALL 
MOV 
STA 
CALL 
MOV 
INR 
JNZ 
ORI 
OUT 
MVI 
OUT 
MVI 
LXI 
TDELAY DCX 
MOV 
ORA 
CZ 
RZ 
IN 
ANI 
JNZ 



MAXHD NE 

DIVLOG 

A,C 

HDDISK 

DRVPTR 

A,M 

A 

SETDRV1 

NULL 

HDFUNC 

A,SCENBL 

HDCNTL 

C,239 

H,0 

H 

A,H 

L 

DCRC 

HDSTAT 
DRVRDY 
TDELAY 



; DIVIDE BY LOGICAL DISKS PER DRIVE 



f SELECT DRIVE 

; ENABLE THE CONTROLLER 

;WAIT APPROX 2 MINUTES FOR DISK TO READY 



;TEST IF READY YET 



E0C1 
E0C4 
E0C6 
E0C8 
E0C9 
E0CA 
E0CC 
E0CD 
E0CE 
E0D1 
E0D2 
E0D4 



210000 

0E40 

DB50 

Al 

47 

DB50 

Al 

B8 

CACAE0 

23 

DB50 

Al 



INDX1 



INDX2 



IF 
LXI 

MVI 

IN 

ANA 

MOV 

IN 

ANA 

CMP 

JZ 

I NX 

IN 

ANA 



SDELAY 

H,0 

C, INDEX 

HDSTAT 

C 

B,A 

HDSTAT 

C 

B, .. ■ 

INDX1 

H 

HDSTAT 

C 



;TIME ONE REVOLUTION OF THE DRIVE 



;SAVE CURRENT INDEX LEVEL IN B 



-JLOOP UTIL INDEX LEVEL CHANGES 



; START COUNTING UNTIL INDEX RETURNS TO 
; PREVIOUS STATE 
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E0D5 


B8 




CMP 


B 


E0D6 


C2D1E0 




JNZ 
IF 
DAD 
ENDIF 


INDX2 

M10 

H 


E0D9 


22A6E2 




SHLD 
ENDIF 


SETTLE 


E0DC 


CD90E2 




CALL 
ENDIF 


HDHOME 


E0DF 


CD07E1 


SETDRV1 


CALL 


GETDPB 


E0E2 


010F00 




LXI 


B,15 


E0E5 


09 




DAD 


B 


E0E6 


7E 




MOV 


A,M 


E0E7 


E607 




ANI 


7H 


E0E9 


3234E1 




STA 


SECSIZ 


E0EC 


7E 




MOV 


A,M 


E0ED 


IF 




RAR 




E0EE 


IF 




RAR 




E0EF 


IF 




RAR 




E0F0 


IF 




RAR 




E0F1 


E60F 




ANI 


0FH 


E0F3 


3272E1 




STA 


SECPSEC 


E0F6 


EB 




XCHG 




E0F7 


C9 




RET 




E0F8 


210000 


ZRET 


LXI 


H,0 


E0FB 


C9 




RET 
IF 


MAXHD NE 


E0FC 


0D 


DCRC 


DCR 


C 


E0FD 


C9 




RET 




E0FE 


0E00 


DIVLOG 


MVI 


C,0 


E100 


D603 


DIVLOGX 


SUI 


LOGDSK 


E102 


D8 




RC 




E103 


0C 




INR 


C 


E104 


C300E1 




JMP 
ENDIF 


DIVLOGX 



;SAVE THE COUNT FOR TIMEOUT DELAY 



;GET ADDRESS OF DPB IN HL 
;OFFSET TO SECTOR SIZE 

;GET SECTOR SIZE 



;HL <- DPH 



•SELDRV ERROR EXIT 



? CONDITIONAL DECREMENT C ROUTINE 



***************************************************************** 

* , * 

* GETDPB RETURNS HL POINTING TO THE DPB OF THE CURRENTLY * 

♦SELECTED DRIVE, DE POINTING TO DPH. • ' * 

* * 

***************************************************************** 



E107 3A95E5 
E10A 6F 
E10B 2600 
E10D 29 
E10E 29 
E10F 29 
E110 29 
Elll 1143E5 
E114 19 



GETDPB 



LDA 


CPMDRV 


MOV 


L,A 


MVI 


H, 


DAD 


H 


DAD 


H 


DAD 


H 


DAD 


H 


LXI 


D, DPBASE 


DAD 


D 



;FORM OFFSET 



;BASE OF DPH'S 
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E115 E5 
E116 110A00 
E119 19 
E11A 7E 
E11B 23 
E11C 66 
E11D 6F 
E11E Dl 
E11F C9 



;SAVE ADDRESS OF DPH 
; OFFSET TO DPB 

; GET LOW BYTE OF DPB ADDRESS 

;GET LOW BYTE OF DPB 



***************************************************************** 

* * 

* XLTS IS A TABLE OF ADDRESS THAT POINT TO EACH OF THE XLT * 

* TABLES FOR EACH SECTOR SIZE. * 

* * 

***************************************************************** 



PUSH 


H 


LXI 


D,10 


DAD 


D 


MOV 


A,M 


INX 


H 


MOV 


H,M 


MOV 


L,A 


POP 


D 


RET 





E120 C5E3 
E122 E0E3 
E124 15E4 
E126 52E4 



XLTS 



IF 


MAXFLOP NE 


DW 


XLT128 


DW 


XLT256 


DW 


XLTS 12 


DW 


XLT124 


ENDIF 





;XLT FOR 128 BYTE SECTORS 
?XLT FOR 256 BYTE SECTORS 
;XLT FOR 512 BYTE SECTORS 
;XLT FOR 1024 BYTE SECTORS 



***************************************************************** 

* * 

* WRITE ROUTINE MOVES DATA FROM MEMORY INTO THE BUFFER. IF THE * 

* DESIRED CP/M SECTOR IS NOT CONTAINED IN THE DISK BUFFER, THE * 

* BUFFER IS FIRST FLUSHED TO THE DISK IF IT HAS EVER BEEN * 

* WRITTEN INTO, THEN A READ IS PERFORMED INTO THE BUFFER TO GET * 

* THE DESIRED SECTOR. ONCE THE CORRECT SECTOR IS IN MEMORY, THE * 

* BUFFER WRITTEN INDICATOR IS SET, SO THE BUFFER WILL BE * 

* FLUSHED, THEN THE DATA IS TRANSFERRED INTO THE BUFFER. * 

* * 

***************************************************************** 



E128 79 
E129 329AE1 
E12C 3E01 
E12E 06 



WRITE 



MOV 


A,C 


STA 


WRITTYP 


MVI 


A,l 


DB 


(MVI) OR (B*8) 



?SAVE WRITE COMMAND TYPE 

SET WRITE COMMAND 

THIS "MVI B" INSTRUCTION CAUSES 

THE FOLLOWING "XRA A" TO 

BE SKIPPED OVER. 



***************************************************************** 

* * 

* READ ROUTINE TO BUFFER DATA FROM THE DISK. IF THE SECTOR * 

* REQUESTED FROM CP/M IS IN THE BUFFER, THEN THE DATA IS SIMPLY * 
♦TRANSFERRED FROM THE BUFFER TO' THE DESIRED DMA ADDRESS. IF * 

* THE BUFFER DOES NOT CONTAIN THE DESIRED SECTOR, THE BUFFER IS * 

* FLUSHED TO THE DISK IF IT HAS EVER BEEN WRITTEN INTO, THEN" * 

* FILLED WITH THE SECTOR FROM THE DISK THAT CONTAINS THE * 
♦DESIRED CP/M SECTOR. I * *■ 

* * 
***************************************************************** 



E12F AF 



READ 



XRA 



;SET THE COMMAND TYPE TO READ 



CP/M MACRO ASSEM 2.0 #025 
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RDWR 7 SAVE COMMAND TYPE 



***************************************************************** 

* * 



* REDWRT CALCULATES THE PHYSICAL SECTOR ON THE DISK THAT 

* CONTAINS THE DESIRED CP/M SECTOR, THEN CHECKS IF IT IS THE 

* SECTOR CURRENTLY IN THE BUFFER. IF NO MATCH IS MADE, THE 

* BUFFER IS FLUSHED IF NECESSARY AND THE CORRECT SECTOR READ 

* FROM THE DISK. 



E133 


0600 


REDWRT MVI 


B,0 


E134 


SS 


SECSIZ EQU 


$-1 


E135 


2A93E5 


LHLD 


CPMSEC 


E138 


7C 


MOV 


A,H 


E139 


E680 


ANI 


80H 


E13B 


4F 


MOV 


C,A 


E13C 


1C 


MOV 


A,H 


E13D 


E67F 


ANI 


7FH 


E13F 


67 


MOV 


H,A 


E140 


2B 


DCX 


H 


E141 


05 


DIVLOOP DCR 


B 


E142 


CA4FE1 


JZ 


DIVDONE 


E145 


B7 


ORA 


A 


E146 


7C 


MOV 


A,H 


E147 


IF 


RAR 




E148 


67 


MOV 


H,A 


E149 


7D 


MOV 


A,L 


E14A 


IF 


RAR 




E14B 


6F 


MOV 


L,A 


E14C 


C341E1 


JMP 


DIVLOOP 


E14F 


23 


DIVDONE INX 


H 


E150 


7C 


MOV 


A,H 


E151 


Bl 


ORA 


C 


E152 


67 


MOV 


H,A 


E153 


2297E5 


SHLD 


TRUESEC 


E156 


2195E5 


LXI 


H,CPMDRV 


E159 


1199E5 


LXI 


D,BUFDRV 


E15C 


0605 


MVI 


B,5 


E15E 


05 


DTSLOP DCR 


B 


E15F 


CA6DE1 


JZ 


MOVE 


E162 


1A 


LDAX 


D 


E163 


BE 


CMP 


M 


E164 


23 


INX 


H 


E165 


13 


INX 


D 


E166 


CA5EE1 


JZ 


DTSLOP 



THE IS MODIFIED TO CONTAIN THE LOG2 
OF THE PHYSICAL SECTOR SIZE/ 128 
ON THE CURRENTLY SELECTED DISK. 

GET THE DESIRED CP/M SECTOR # 

;SAVE ONLY THE SIDE BIT 
; REMEMBER THE SIDE 

; FORGET THE SIDE BIT 

; TEMPORARY ADJUSTMENT 
; UPDATE REPEAT COUNT 



; DIVIDE THE CP/M SECTOR # BY THE SIZE 
; OF THE PHYSICAL SECTORS 



; RESTORE THE SIDE BIT 

;SAVE THE PHYSICAL SECTOR NUMBER 

7 POINTER TO DESIRED DRIVE, TRACK, AND SECTOR 

; POINTER TO BUFFER DRIVE, TRACK, AND SECTOR 

; COUNT LOOP 

; TEST IF DONE WITH COMPARE 

7 YES, MATCH. GO MOVE THE DATA 

? GET A BYTE TO COMPARE 

7 TEST FOR MATCH 

7 BUMP POINTERS TO NEXT DATA ITEM 

7 MATCH, CONTINUE TESTING 
***************************************************************** 

* DRIVE, TRACK, AND SECTOR DON'T MATCH, FLUSH THE BUFFER IF * 

* NECESSARY AND THEN REFILL. * 

* * 

***************************************************************** 
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E169 CD34E2 
E16C D8 



CALL 
RC 



FILL 



;FILL THE BUFFER WITH CORRECT PHYSICAL SECTOR 
;NO GOOD, RETURN WITH ERROR INDICATION 



***************************************************************** 

* * 

* MOVE HAS BEEN MODIFIED TO CAUSE EITHER A TRANSFER INTO OR OUT * 

* THE BUFFER. * 

* * 

***************************************************************** 



E16D 


3A93E5 


MOVE 


LDA 


CPMSEC 


E170 


3D 




DCR 


A 


E171 


E600 




ANI 





E172 


= 


SECPSEC 


EQU 


$-1 


E173 


6F 




MOV 


L,A 


E174 


2600 




MVI 


H,0 


E176 


29 




DAD 


H 


E177 


29 




DAD 


H 


E178 


29 




DAD 


H 


E179 


29 




DAD 


H 


E17A 


29 




DAD 


H 


E17B 


29 




DAD 


H 


E17C 


29 




DAD 


H 


E17D 


119DE5 




LXI 


D, BUFFER 


E180 


19 




DAD 


D 


E181 


EB 




XCHG 




E182 


210000 




LXI 


H,0 


E183 


= 


CPMDMA 


EQU 


$-2 


E185 


3E00 




MVI 


A,0 


E186 


- 


RDWR 


EQU 


$-1 


E187 


A7 




ANA 


A 


E188 


C290E1 




JNZ 


INTO 


E18B 


CD68E2 


OUTOF 


CALL 


MOVER 


E18E 


AF 




XRA 


A 


E18F 


C9 




RET 




E190 


EB 


INTO 


XCHG 




E191 


CD68E2 




CALL 


MOVER 


E194 


3E01 




MVI 


A,l 


E196 


32A3E1 




STA 


BUFWRTN 


E199 


3E00 




MVI 


A,0 


E19A 


= 


WRITTYP 


EQU 


$-1 


E19B 


3D 




DCR 


A 


E19C 


3E00 




MVI 


A,0 


EI9E 


329AE1 




STA 


WRITTYP 


E1A1 


C0 




RNZ 





GET THE CP/M SECTOR TO TRANSFER 
ADJUST TO PROPER SECTOR IN BUFFER 
STRIP OFF HIGH ORDERED BITS 
THE IS MODIFIED TO REPRESENT THE # OF 

CP/M SECTORS PER PHYSICAL SECTORS 
PUT INTO HL 

;FORM OFFSET INTO BUFFER 



BEGINNING ADDRESS OF BUFFER 

FORM BEGINNING ADDRESS OF SECTOR TO TRANSFER 
DE = ADDRESS IN BUFFER 

GET DMA ADDRESS, THE IS MODIFIED TO 
CONTAIN THE DMA ADDRESS 

;THE ZERO GETS MODIFIED TO CONTAIN 

; A ZERO IF A READ, OR A 1 IF WRITE 

;TEST WHICH KIND OF OPERATION 
; TRANSFER DATA INTO THE BUFFER 



MOVE THE DATA, HL « DESTINATION 
DE = SOURCE 

?SET BUFFER WRITTEN INTO FLAG 
? CHECK FOR DIRECTORY WRITE 



;SET NO DIRECTORY WRITE 
;NO ERROR EXIT 

***************************************************************** 

* * 

* FLUSH WRITES THE CONTENTS OF THE BUFFER OUT TO THE DISK IF * 

* IT HAS EVER BEEN WRITTEN INTO. * 



CP/M MACRO ASSEM 2.0 #027 



'** Cbios For CP/M Ver. 2.2 **' 



* * 

***************************************************************** 



E1A2 


3E00 


FLUSH 


MVI 


A,0 


E1A3 


= 


BUFWRTN 


EQU 


$-1 


E1A4 


A7 




ANA 


A 


E1A5 


C8 




RZ 
IF 


(MAXHD NE 0) 


E1A6 


2118F4 




LXI 


H,DJWRITE 


E1A9 


1130E3 




LXI 


D,HDWRITE 


El AC 


CD77E2 




CALL 
ELSE 
IF 
LXI 
END IF 
IF 
LXI 
END IF 
END IF 


DECIDE 

MAXHD NE 
H,HDWRITE 

MAXFLOP NE 
H,DJWRITE 



;THE IS MODIFIED TO REFLECT IF 

THE BUFFER HAS BEEN WRITTEN INTO 

;TEST IF WRITTEN INTO 
;NOT WRITTEN, ALL DONE 



;WRITE OPERATION FOR DISK JOCKEY 
; WRITE OPERATION FOR HARD DISK 



***************************************************************** 

* * 

* PREP PREPARES TO READ/WRITE THE DISK. RETRIES ARE ATTEMPTED. * 

* UPON ENTRY, H&L MUST CONTAIN THE READ OR WRITE OPERATION * 

* ADDRESS. * 

* * 

***************************************************************** 



E1AF 


AF 


PREP 


XRA 


A 


E1B0 


32A3E1 




STA 


BUFWRTN 


E1B3 


2215E2 




SHLD 


RETRYOP 


E1B6 


060A 




MVI 


B, RETRIES 


E1B8 


C5 


RETRYLP 


PUSH 


B 


E1B9 


3A99E5 




LDA 

IF 

IF 

CPI 

JC 

SUI 

ELSE 


BUFDRV 

(MAXHD NE 

FIRST 

MAXHD*LOGD 

NOADJST 

MAXHD*LOGD 


E1BC 


FE02 




CPI 


MAXFLOP 


E1BE 


DAC3E1 




JC 


NOADJST 


E1C1 


D602 




SUI 
END IF 


MAXFLOP 


E1C3 


4F 


NOADJST 


MOV 


C f A 


E1C4 


2133DD 




LXI 


H,DJDRV 


E1C7 


117FE2 




LXI 


D,HDDRV 


E1CA 


CD73E2, 




CALL 
ELSE 
MOV 
IF 

CALL 


DECIDGO 

C,A 
i MAXHD NE 
HDDRV 



; RESET BUFFER WRITTEN FLAG 

;SET UP THE READ/WRITE OPERATION 

; MAXIMUM NUMBER OF RETRIES TO ATTEMPT 

;SAVE THE RETRY COUNT 

?GET DRIVE NUMBER INVOLVED IN THE OPERATION 



; SELECT DRIVE 



CP/M macro ASSEM 2.0 



#028 



•** Cbios For CP/M Ver. 2.2 *** 



E1CD 3A9AE5 
E1D0 A7 
E1D1 4F 
E1D2 C5 



E1D3 2109F4 
E1D6 1190E2 
E1D9 CC73E2 



ENDIF 




IF 


MAXFLOP NE 


CALL 


DJDRV 


ENDIF 




ENDIF 




LDA 


BUFTRK 


ANA 


A 


MOV 


C,A 


PUSH 


B 


IF 


(MAXHD NE 0) 


LXI 


H,DJHOME 


LXI 


D,HDHOME 


CZ 


DECIDGO 


ELSE 




IF 


MAXHD NE 


CZ 


HDHOME 


ENDIF 




IF 


MAXFLOP NE 


CZ 


DJHOME 


ENDIF 




ENDIF 





; SELECT THE DRIVE 



•TEST FOR TRACK ZERO 



;HOME THE DRIVE IF TRACK 



E1DC CI 



E1DD 210CF4 
E1E0 11B1E2 
E1E3 CD73E2 



POP 

IF 

LXI 

LXI 

CALL 

ELSE 

IF 

CALL 

ENDIF 

IF 

CALL 

ENDIF 

ENDIF 



B 



; RESTORE TRACK # 



(MAXHD NE 0) AND (MAXFLOP NE 0) 

H,DJTRK 

D,HDTRK 

DECIDGO 

MAXHD NE 
HDTRK 

MAXFLOP NE 

DJTRK ;SEEK TO PROPER TRACK 



E1E6 2A9BE5 
E1E9 7C 
E1EA 07 
E1EB E601 
E1ED 4F 



E1EE 2130F4 
E1F1 11DDE2 
E1F4 CD73E2 



LHLD 

MOV 

RLC 

ANI 

MOV 

IF 

LXI 

LXI 

CALL 

ELSE 

IF 

CALL 

ENDIF 

IF 

CALL 

ENDIF 



BUFSEC 
A,H 

1 

C,A 



?GET SECTOR INVOLVED IN OPERATION 
;BIT OF A EQUALS SIDE # 
; STRIP OFF UNNECESSARY BITS 
;C <- SIDE # 



(MAXHD NE 0) AND (MAXFLOP NE 0) 

H,DJSIDE 

D,HDSIDE 

DECIDGO 

MAXHD NE 
HDSIDE 



MAXFLOP NE 
DJSIDE 



; SELECT THE SIDE 



CP/M macro ASSEM 2.0 



E1F7 2A9BE5 
E1FA 7C 
E1FB E67F 
E1FD 47 
E1FE 4D 



E1FF 210FF4 
E202 11E6E2 
E205 CD73E2 



E208 019DE5 



E20B 2112F4 
E20E 11D8E2 
E211 CD73E2 



#029 
END IF 

LHLD 

MOV 

ANI 

MOV 

MOV 

IF 

LXI 

LXI 

CALL 

ELSE 

IF 

CALL 

ENDIF 

IF 

CALL 

ENDIF 

ENDIF 

LXI 

IF 

LXI 

LXI 

CALL 

ELSE 

IF 

CALL 

ENDIF 

IF 

CALL 

ENDIF 

ENDIF 



*** Cbios For CP/M Ver. 2.2 *** 



BUFSEC 

A,H 

7FH 

B,A 

C,L 



; STRIP OFF SIDE BIT 
;C <- SECTOR # 



(MAXHD NE 0) AND (MAXFLOP NE 0) 

H,DJSEC 

D,HDSEC 

DECIDGO 

MAXHD NE 
HDSEC 



MAXFLOP NE 
DJSEC 



B , BUFFER 



.•SELECT THE SIDE 



;SET THE DMA ADDRESS 



(MAXHD NE 0) AND (MAXFLOP NE 0) 

H,DJDMA 

D, HDDMA 

DECIDGO 

MAXHD NE 
HDDMA 



MAXFLOP NE 
DJDMA 



•SELECT THE SIDE 



E214 
E215 
E217 
E218 
E21A 
E21B 
E21C 
E21D 
E21F 
E220 
E221 
E223 



CD0000 

CI 

3E00 

D0 

05 

37 

3EFF 

C8 

78 

FE05 

C2B8E1 



E226 C5 

E227 2109F4 
E22A 1190E2 
E22D CD73E2 



CALL 
RETRYOP EQU 
POP 
MVI 
RNC 
DCR 
STC 
MVI 
RZ 
MOV 
CPI 
JNZ 

PUSH 

IF 

LXI 

LXI 

CALL 

ELSE 

IF 





$-2 
B 
A,0 

B 

A,0FFH 

A,B 

RETRIES/ 2 
RETRYLP 

B 

(MAXHD NE 0) AND (MAXFLOP NE 0) 

H,DJHOME 

D,HDHOME 

DECIDGO 

MAXHD NE 



;GET OPERATION ADDRESS 

; RESTORE THE RETRY COUNTER 

?NO ERROR EXIT STATUS 

; RETURN NO ERROR 

? UPDATE THE RETRY COUNTER 

;ASSUME RETRY COUNT EXPIRED 

; ERROR RETURN 



;TRY AGAIN 



CP/M macro ASSEM 2.0 



#030 



*** Cbios For CP/M Ver. 2.2 *** 



E230 CI 
E231 C3B8E1 



CALL 


HDHOME 


ENDIF 




IF 


MAXFLOP NE 


CALL 


DJHOME 


ENDIF 




ENDIF 




POP 


B 


JMP 


RETRYLP 



;HOME THE DRIVE IF TRACK 



***************************************************************** 

* * 

* FILL FILLS THE BUFFER WITH A NEW SECTOR FROM THE DISK. * 

* * 

***************************************************************** 



E234 CDA2E1 
E237 D8 
E238 1195E5 
E23B 2199E5 
E23E 0604 
E240 CD6AE2 

E243 3A86E1 
E246 A7 
E247 CA5CE2 
E24A 3A9AE1 
E24D 3D 
E24E 3D 
E24F C8 
E250 CD07E1 
E253 110F00 
E256 19 
E257 7E 
E258 E603 
E25A 3D 
E25B C8 

E25C = 

E25C 2115F4 
E25F 11FBE2 
E262 CD77E2 



FILL 



E265 C3AFEI 



FREAD 



CALL 


FLUSH 


RC 




LXI 


D,CPMDRV 


LXI 


H, BUFDRV 


MVI 


B,4 


CALL 


MOVLOP 


LDA 


RDWR 


ANA 


A 


JZ 


FREAD 


LDA 


WRITTYP 


DCR 


A 


DCR 


A 


RZ 




CALL 


GETDPB 


LXI 


D, 15 


DAD 


D 


MOV 


A,M 


ANI 


3 


DCR 


A 


RZ 




EQU 


$ 


IF 


(MAXHD NE 0) 


LXI 


H, DJREAD 


LXI 


D,HDREAD 


CALL 


DECIDE 


ELSE 




IF 


MAXHD NE 


LXI 


H,HDREAD 


ENDIF 




IF 


MAXFLOP NE 


LXI 


H, DJREAD 


ENDIF 




ENDIF 




JMP 


PREP 



?FLUSH BUFFER FIRST 

; CHECK FOR ERROR 

7 UPDATE THE DRIVE, TRACK, AND SECTOR 

7 NUMBER OF BYTES TO MOVE 
;COPY THE DATA 



SELECT THE SIDE 



"; SELECT DRIVE, TRACK, AND SECTOR. 
; THEN READ THE BUFFER 

*********************************** ** **************************** 
* * 



CP/M MACRO ASSEM 2.0 #031 *** Cbios For CP/M Ver. 2.2 *** 



* MOVER MOVES 128 BYTES OF DATA. SOURCE POINTER IN DE # DEST * 

* POINTER IN HL. * 

* * 

***************************************************************** 



E268 0680 
E26A 1A 
E26B 77 
E26C 13 
E26D 23 
E26E 05 
E26F C26AE2 
E272 C9 



MOVER MVI B,128 

MOVLOP LDAX D 

MOV M,A 

INX D 

INX H 

DCR B 

JNZ MOVLOP 
RET 



; LENGTH OF TRANSFER 
;GET A BTE OF SOURCE 
;MOVE IT 
;BUMP POINTERS 

? UPDATE COUNTER 

; CONTINUE MOVING UNTIL DONE 



***************************************************************** 

* * 

* ROUTINES TO DECIDE WHICH CONTROLLER TO USE. * 

* * 

***************************************************************** 



E273 CD77E2 
E276 E9 



IF 
DECIDGO CALL 
PCHL 

ENDIF 



(MAXHD NE 0) AND (MAXFLOP NE 0) 
DECIDE ;WHICH CONTROLLER ? 



E277 3A99E5 



E27A FE02 
E27C D8 

E27D EB 
E27E C9 



IF 
DECIDE LDA 
IF 
CPI 
RNC 
ELSE 
CPI 
RC 

ENDIF 
XCHG 
RET 
ENDIF 



(MAXHD NE 0) AND (MAXFLOP NE 0) 

BUFDRV ;GET PROPER ROUTINE INTO H&L, BASED 

FIRST ; ON CURRENTLY SELECTED DRIVE 

MAXHD*LOGDSK 



MAXFLOP 



***************************************************************** 

* * 

* THE FOLLOWING IS THE EQUIVALENT OF THE LOWEST LEVEL DRIVERS * 

* FOR THE HARD DISK. * 

* * 

***************************************************************** 



E27F 79 
E280 CDFEE0 
E283 79 
E284 32C0E3 
E287 F6FC 
E289 D352 
E28B 3E0F 
E28D D350 
E28F C9 



HDDRV 



IF 


MAXHD NE 


MOV 


A,C 


CALL 


DIVLOG 


MOV 


A,C 


STA 


HDDISK 


ORI 


NULL 


OUT 


HDFUNC 


MVI 


A,WENABL 


OUT 


HDCNTL 


RET 





; SELECT HARD DISK DRIVE 
;GET THE PHYSICAL DRIVE 

; SELECT THE DRIVE 



CP/M MACRO ASSEM 2.0 

E290 CDAEE3 HDHOME 
E293 3600 



#032 



E295 DB50 
E297 E601 
E299 CAA5E2 
E29C 3E01 
E29E 37 
E29F CDC5E2 
E2A2 C395E2 



STEPO 



CALL 


DRVPTR 


MVI 


M,0 


IF 


SDELAY 


IN 


HDSTAT 


ANI 


TKZERO 


JZ 


DELAY 


MVI 


A,l 


STC 




CALL 


ACCOK 


JMP 


STEPO 



ELSE 



*** Cbios For CP/M Ver. 2.2 *** 

,-SET TRACK TO ZERO 



;TEST STATUS 
;AT TRACK ZERO ? 









IN 


HDSTAT 








ANI 


TKZERO 








RZ 










XRA 


A 








JMP 


ACCOK 








ENDIF 










IF 


SDELAY 


E2A5 


210000 


DELAY 


LXI 


H,0 


E2A6 


= 


SETTLE 


EQU 


$-2 


E2A8 


2B 


DELOOP 


DCX 


H 


E2A9 


7C 




MOV 


A,H 


E2AA 


B5 




ORA 


L 


E2AB 


23 




INX 


H 


E2AC 


2B 




DCX 


H 


E2AD 


C2A8E2 




JNZ 


DELOOP 


E2B0 


C9 




RET 

ENDIF 




E2B1 


CDAEE3 


HDTRK 


CALL 


DRVPTR 


E2B4 


5E 




MOV 


E,M 


E2B5 


71 




MOV 


M,C 


E2B6 


7B 




MOV 


A,E 


E2B7 


91 




" SUB' ~ 


C 


E2B8 


C8 




RZ 




E2B9 


3F ' 


• - ■■ - - ■ - - 


CMC 




E2BA 


DABFE2 




JC 


HDTRK2 


E2BD 


2F 




CMA 




E2BE 


3C 




INR 
IF 


A 

NOT SDELAY 






HDTRK2 


JMP 
ELSE 


ACCOK 


E2BF 


CDC5E2 


HDTRK2 


CALL 


ACCOK 


E2C2 


C3A5Ei2 




JMP 
ENDIF 


DELAY 


E2C5 


47 


ACCOK 


MOV 


B,A 


E2C6 


CDB9E3 




CALL 


BUILD 


E2C9 


E6FB 


SLOOP 


ANI 


NSTEP 


E2CB 


D352 




OUT 


HDFUNC 


E2CD 


F604 




ORI 


PSTEP 


E2CF 


D352 




OUT 


HDFUNC 



;TAKE ONE STEP OUT 



;GET DELAY 
;WAIT 20MS 



;GET POINTER TO CURRENT TRACK 
;GET CURRENT TRACK 
; UPDATE THE TRACK 
;NEED TO SEEK AT ALL ? 



;GET CARRY INTO DIRECTION 



;PREP FOR BUILD 

;GET STEP PULSE LOW 
; OUTPUT LOW STEP LINE 
,'SET STEP LINE HIGH 
; OUTPUT HIGH STEP LINE 



CP/M MACRO ASSEM 2.0 



#033 



*** Cbios For CP/M Ver. 2.2 *** 



E2D1 


05 




DCR 


B 


E2D2 


C2C9E2 




JNZ 


SLOOP 


E2D5 


C3DEE2 




JMP 


WSDONE 


E2D8 


60 


HDDMA 


MOV 


H,B 


E2D9 


69 




MOV 


L,C 


E2DA 


2215E3 




SHLD 


HDADD 


E2DD 


= 


HDSIDE 


EQU 


$ 


E2DD 


C9 




RET 




E2DE 


DB50 


WSDONE 


IN 


HDSTAT 


E2E0 


E604 




ANI 


COMPLT 


E2E2 


CADEE2 




JZ 


WSDONE 


E2E5 


C9 




RET 
IF 


M26 


E2E6 


3E1F 


HDSEC 


MVI 


A,01FH 


E2E8 


Al 




ANA 


C 


E2E9 


CCF8E2 




CZ 


GETSPT 


E2EC 


329EE3 




STA 


HDSECTR 


E2EF 


3EE0 




MVI 


A,0E0H 


E2F1 


Al 




ANA 


C 


E2F2 


07 




RLC 




E2F3 


07 




RLC 




E2F4 


07 




RLC 




E2F5 


32BAE3 




STA 


HEAD 


E2F8 


3E20 


GETSPT 


MVI 


A, HDSPT 


E2FA 


C9 




RET 





; UPDATE REPEAT COUNT 

?KEEP GOING THE REQUIRED # OF TRACKS 



;SAVE THE DMA ADDRESS 



;WAIT FOR SEEK COMPLETE TO FINISH 



;FOR COMPATIBILITY WITH CBIOS REV 2.3, 2.4 



ELSE 







HDSEC 


MOV 


A,C 








CALL 


DIVSPT 








ADI 


HDSPT 








ANA 


A 








CZ 


GETSPT 








STA 


HDSECTR 








MOV 


A,C 








STA 


HEAD 






GETSPT 


MVI 
DCR 
RET 


A, HDSPT 
C 






DIVSPT 


MVI 


C,0 






DIVSPTX 


SUI 

RC 

INR 

JMP 

ENDIF 


HDSPT 

C 
DIVSPTX 


E2FB 


CD79E3 


HDREAD 


CALL 


HDPREP 


E2FE 


D8 




RC 




E2FF 


AF 




XRA 


A 


E300 


D351 




OUT 


HDCMND 


E302 


2F 




CMA 




E303 


D353 




OUT 


HDDATA 



cp/m macro ASSEM 2.0 



#034 



*** Cbios For CP/M Ver. 2.2 *** 



E305 


D353 


OUT 


HDDATA 


E307 


3E01 


MVI 


A,RSECT 


E309 


D351 


OUT 


HDCMND 


E30B 


CD5FE3 


CALL 


PROCESS 


E30E 


D8 


RC 




E30F 


AF 


XRA 


A 


E310 


D351 


OUT 


HDCMND 


E312 


0680 


MVI 


B,SECLEN/4 


E314 


210000 


LXI 


H,0 


E315 


= 


HDADD EQU 


$-2 


E317 


DB53 


IN 


HDDATA 


E319 


DB53 


IN 


HDDATA 


E31B 


DB53 


RTLOOP IN 


HDDATA 


E31D 


77 


MOV 


M,A 


E31E 


23 


I NX 


H 


E31F 


DB53 


IN 


HDDATA 


E321 


77 


MOV 


M,A 


E322 


23 


I NX 


H 


E323 


DB53 


IN 


HDDATA 


E325 


77 


MOV 


M,A 


E326 


23 


I NX 


H 


E327 


DB53 


IN 


HDDATA 


E329 


77 


MOV 


M,A 


E32A 


23 


I NX 


H 


E32B 


05 


DCR 


B 


E32C 


C21BE3 


JNZ 


RTLOOP 


E32F 


C9 


RET 




E330 


CD79E3 


HDWRITE CALL 


HDPREP 


E333 


D8 


RC 




E334 


AF 


XRA 


A 


E335 


D351 


OUT 


HDCMND 


E337 


2A15E3 


LHLD 


HDADD 


E33A 


0680 


MVI 


B,SECLEN/4 


E33C 


7E 


WTLOOP MOV 


A,M 


E33D 


D353 


OUT 


HDDATA 


E33F 


23 


INX 


H 


E340 


7E 


MOV 


A,M 


E341 


D353 


OUT 


HDDATA 


E343 


23 


INX 


H 


E344 


7E 


MOV 


A,M 


E345 


D353 


OUT 


HDDATA 


E347 


23 


INX 


H 


E348 


7E 


MOV 


A,M 


E349 


D353 


OUT 


HDDATA 


E34B 


23 


INX 


H 


E34C 


05 


DCR 


B 


E34D 


C23CE3 


JNZ 


WTLOOP 


E350 


3E05 


MVI 


A,WSECT 


E352 


D351 


OUT 


HDCMND 


E354 


CD5FE3 


CALL 


PROCESS 


E357 


D8 


RC 




E353 


3E10 


MVI 


A,WFAULT 


E35A 


A0 


ANA 


B 


E35B 


37 


STC 




E35C 


C8 


RZ 





(READ SECTOR COMMAND 



;MOVE FOUR BYTES 



.•PREPARE HEADER 



;MOVE 4 BYTES 



; ISSUE WRITE SECTOR COMMAND 



CP/M macro ASSEM 2.0 



#035 



*** Cbios For CP/M Ver. 2.2 *** 



E35D 


AF 


XRA 


A 


E35E 


C9 


RET 




E35F 


DB50 


PROCESS IN 


HDSTAT 


E361 


47 


MOV 


B,A 


E362 


E602 


ANI 


OPDONE 


E364 


CA5FE3 


JZ 


PROCESS 


E367 


3E07 


MVI 


A,DSKCLK 


E369 


D350 


OUT 


HDCNTL 


E36B 


DB50 


IN 


HDSTAT 


E36D 


E608 


ANI 


TMOUT 


E36F 


37 


STC 




E370 


C0 


RNZ 




E371 


DB51 


IN 


HDRESLT 


E373 


E602 


ANI 


RETRY 


E375 


37 


STC 




E376 


C0 


RNZ 




E377 


AF 


XRA 


A 


E378 


C9 


RET 




E379 


D350 


HDPREP IN 


HDSTAT 


E37B 


E620 


ANI 


DRVRDY 


E37D 


37 


STC 




E37E 


C0 


RNZ 




E37F 


3E08 


MVI 


A,ISBUFF 


E381 


D351 


OUT 


HDCMND 


E383 


CDB9E3 


CALL 


BUILD 


E386 


F60C 


ORI 


0CH 


E388 


D352 


OUT 


HDFUNC 


E38A 


3ABAE3 


LDA 


HEAD 


E38D 


D353 


OUT 


HDDATA 


E38F 


CDAEE3 


CALL 


DRVPTR 


E392 


7E 


MOV 


A,M 


E393 


D353 


OUT 


HDDATA 


E395 


A7 


ANA 


A 


E396 


0680 


MVI 


B,80H 


E398 


CA9DE3 


JZ 


ZKEY 


E39B 


0600 


MVI 


B,0 


E39D 


3E00 


ZKEY MVI 


A,0 


E39E 


= 


HDSECTR EQU 


$-1 


E39F 


D353 


OUT 


HDDATA 


E3A1 


78 


MOV 


A,B 


E3A2 


D353 


OUT 


HDDATA 


E3A4 


3E07 


MVI 


A,DSKCLK 


E3A6 


D350 


OUT 


HDCNTL 


E3A8 


3E0F 


MVI 


A,WENABL 


E3AA 


D350 


OUT 


HDCNTL 


E3AC 


AF 


XRA 


A 


E3AD 


C9 


RET 




E3AE 


2AC0E3 


DRVPTR LHLD 


HDDISK 


E3B1 


EB 


XCHG 




E3B2 


1600 


MVI 


D,0 


E3B4 


21C4E3 


LXI 


H, DRIVES 


E3B7 


19 


DAD 


D 


E3B8 


C9 


RET 





;WAIT FOR COMMAND TO FINISH 



; TIMED OUT ? 



;ANY RETRIES ? 



.•INITIALIZE POINTER 



;FORM HEAD BYTE 
;FORM TRACK BYTE 



;FORM SECTOR BYTE 



cp/m macro ASSEM 2.0 



#036 



*** Chios For CP/M Ver. 2.2 *** 



E3B9 


3E00 


BUILD 


MVI 


A,0 


E3BA 


= 


HEAD 


EQU 


$-1 


E3BB 


17 




RAL 




E3BC 


17 




RAL 




E3BD 


17 




RAL 




E3BE 


17 




RAL 




E3BF 


F600 




ORI 





E3C0 


= 


HDDISK 


EQU 


5-1 


E3C1 


EEF0 




XRI 


0F0H 


E3C3 


C9 




RET 




E3C4 


— 


DRIVES 


EQU 
REPT 
DB 
ENDM 


$ 

MAXHD 

0FFH 


E3C4+FF 




DB 


0FFH 








ENDIF 





***************************************************************** 

* * 

* XLT TABLES (SECTOR SKEW TABLES) FOR CP/M 2.0. THESE TABLES * 

* DEFINE THE SECTOR TRANSLATION THAT OCCURS WHEN MAPPING CP/M * 

* SECTORS TO PHYSICAL SECTORS ON THE DISK. THERE IS ONE SKEW * 

* TABLE FOR EACH OF THE POSSIBLE SECTOR SIZES. CURRENTLY THE * 

* TABLES ARE LOCATED ON TRACK SECTORS 6 AND 8. THEY ARE * 

* LOADED INTO MEMORY IN THE CBIOS RAM BY THE COLD BOOT ROUTINE. * 

* * 

***************************************************************** 







IF 


E3C5 


00 XLT128 


DB 


E3C6 


01070D1319 


DB 


E3CB 


050B1117 


DB 


E3CF 


03090F15 


DB 


E3D3 


02080E141A 


DB 


E3D8 


060C1218 


DB 


E3DC 


040A1016 


DB 


E3E0 


00 XLT256 


DB 


E3E1 


0102131425 


DB 


E3E7 


0304151627 


DB 


E3ED 


0506171829 


DB 


E3F3 


0708191A2B 


DB 


E3F9 


090A1B1C2D 


DB 


E3FF 


0B0C1D1E2F 


DB 


E405 


0D0E1F2031 


DB 


E40B 


0F10212233 


DB 


E411 


11122324 


DB 


E415 


00 XLT512 


DB 


E416 


0102030411 


DB 


E41E 


2122232431 


DB 


E426 


0506070815 


DB 


E42E 


2526272835 


DB 


E436 


090A0B0C19 


DB 



MAXFLOP NE 



1,7,13,19,25 

5,11,17,23 

3,9,15,21 

2,8,14,20,26 

6,12,18,24 

4,10,16,22 





1,2,19 

3,4,21 

5,6,23 

7,8,25 

9,10,2 

11,12, 

13,14, 

15,16, 

17,18, 



,20,37,38 

,22,39,40 

,24,41,42 

,26,43,44 

7,28,45,46 

29,30,47,48 

31,32,49,50 

33,34,51,52 

35,36 



1,2, 3, 4, 17, 18, 19; 20 
33,34,35,36,49,50,51,52 
5,6,7,8,21,22,23,24 
37,38, 39, 40, 53 , 54, 55, 56 
9,10,11,12,25,26,27,28 



CP/M MACRO ASSEM 2.0 



#037 



*** Cbios For CP/M Ver. 2.2 *** 



E43E 292A2B2C39 
E446 0D0E0F101D 
E44E 2D2E2F30 



DB 
DB 
DB 



E452 00 XLT124 DB 

E453 0102030405 DB 

E45B 191A1B1C1D DB 

E463 3132333435 DB 

E46B 090A0B0C0D DB 

E473 2122232425 DB 

E47B 393A3B3C3D DB 

E483 1112131415 DB 

E48B 292A2B2C2D DB 



41,42,43,44,5 7,58,59,60 
13,14,15,16,29,30,31,32 
45,46,47,48 



1,2,3,4, 5,6,7, 8 

25,26,27,28,29,30,31,32 

49,50,51,52,53,54,55,56 

9,10,11,12,13,14,15,16 

33,34,35,36,37,38,39,40 

57,58,59,60,61,62,63,64 

17,18,19,20,21,22,23,24 

41,42,43,44,45,46,47,48 



***************************************************************** 

* * 

* EACH OF THE FOLLOWING TABLES DESCRIBES A DISKETTE WITH THE * 

* SPECIFIED CHARACTERISTICS. * 

* * 

***************************************************************** 



***************************************************************** 

* * 

* THE FOLLOWING DPB DEFINES A DISKETTE FOR 128 BYTE SECTORS, * 

* SINGLE DENSITY, AND SINGLE SIDED. * 

* * 

***************************************************************** 



E493 1A00 


DPB128S DW 


26 


E495 03 


DB 


3 


E496 07 


DB 


7 


E497 00 


DB 





E498 F200 


DVJ 


242 


E49A 3F00 


DW 


63 


E49C C0 


DB 


0C0H 


E49D 00 


DB 





E49E 1000 


DW 


16 


E4A0 0200 


DW 


2 


E4A2 01 


DB 


1H 



CP/M SECTORS/TRACK 

BSH 

BLM 

EXM 

DSM 

DRM 

AL0 

AL1 

CKS 

OFF 

16*((#CPM SECTORS/PHYSICAL SECTOR) -1) + 

LOG2(#BYTES PER SECTOR/ 128) + 1 + 

8 IF DOUBLE SIDED. 



***************************************************************** 

* * 

* THE FOLLOWING DPB DEFINES A DISKETTE FOR 256 BYTE SECTORS, * 

* DOUBLE DENSITY, AND SINGLE SIDED. * 

* * 

***************************************************************** 



E4A3 3400 


DPB256S 


DW 


52 


E4A5 04 




DB 


4 


E4A6 0F 




DB 


15 


E4A7 00 




DB 





E4A8 F200 




DW 


242 


E4AA 7F00 




DW 


127 



;CP/M SECTORS/TRACK 

7 BSH 

;BLM 

;EXM 

7 DSM 

;DRM 



CP/M MACRO 


ASSEM 2.0 


#033 


*** 


E4AC C0 




DB 


0C0H 


E4AD 00 




DB 





E4AE 2000 




DW 


32 


E4B0 0200 




DW 


2 


E4B2 12 




DB 


12H 



** Cbios For CP/M Ver. 2.2 *** 



;AL0 

?AL1 

;CKS 

;OFF 

;16*((#CPM SECTORS/PHYSICAL SECTOR) -1) + 

;LOG2(#BYTES PER SECTOR/ 128) + 1 + 

;8 IF DOUBLE SIDED. 



***************************************************************** 

* * 

* THE FOLLOWING DPB DEFINES A DISKETTE AS 512 BYTE SECTORS, * 

* DOUBLE DENSITY, AND SINGLE SIDED. * 

* * 

***************************************************************** 



E4B3 3C00 


DPB512S DW 


60 


E4B5 04 


DB 


4 


E4B6 0F 


DB 


15 


E4B7 00 


DB 





E4B8 1801 


DW 


280 


E4BA 7F00 


DW 


127 


E4BC C0 


DB 


0C0H 


E43D 00 


DB 





E4BE 2000 


DW 


32 


E4C0 0200 


DW 


2 


E4C2 33 


DB 


33H 



CP/M SECTORS/TRACK 

BSH 

BLM 

EXM 

DSM 

DRM 

AL0 

AL1 

CKS 

OFF 

16*((#CPM SECTORS/ PHYSICAL SECTOR) -1) + 

LOG2(#BYTES PER SECTOR/ 128) + 1 + 

8 IF DOUBLE SIDED. 



***************************************************************** 

* * 

* THE FOLLOWING DPB DEFINES A DISKETTE AS 1024 BYTE SECTORS, * 

* DOUBLE DENSITY, AND SINGLE SIDED. * 

* * 

***************************************************************** 



E4C3 4000 


DP1024S DW 


64 


E4C5 04 


DB 


4 


E4C6 0F 


DB 


15 


E4C7 00 


DB 





E4C8 2B01 


DW 


299 


E4CA 7F00 


DW 


127 


E4CC C0 


DB 


0C0H 


E4CD 00 


DB 





E4CE 2000 


DW 


32 


E4D0 0200 


DW 


2 


E4D2 74 


DB 


74H 



CP/M SECTORS/TRACK 

BSH 

BLM 

EXM 

DSM 

DRM 

AL0 

AL1 

CKS 

OFF 

16*((#CPM SECTORS/PHYSICAL SECTOR) -1) + 

LOG2(#BYTES PER SECTOR/ 128) + 1 + 

8 IF DOUBLE SIDED. 



***************************************************************** 

* * 

* THE FOLLOWING DPB DEFINES A DISKETTE FOR 128 BYTE SECTORS, * 

* SINGLE DENSITY, AND DOUBLE SIDED. * 

* * 

***************************************************************** 



CP/M macro ASSEM 2.0 



#039 



*** Cbios For CP/M Ver. 2.2 *** 



E4D3 


3400 


DPB128D DW 


52 


E4D5 


04 


DB 


4 


E4D6 


0F 


DB 


15 


E4D7 


01 


DB 


1 


E4D8 


F200 


DW 


242 


E4DA 


7F00 


DW 


127 


E4DC 


C0 


DB 


0C0H 


E4DD 


00 


DB 





E4DE 


2000 


DW 


32 


E4E0 


0200 


DW 


2 


E4E2 


09 


DB 


9H 



CP/M SECTORS/TRACK 

BSH 

BLM 

EXM 

DSM 

DRM 

AL0 

AL1 

CKS 

OFF 



***************** ************************************************ 

* * 

* THE FOLLOWING DPB DEFINES A DISKETTE AS 256 BYTE SECTORS, * 

* DOUBLE DENSITY, AND DOUBLE SIDED. * 

* * 

***************************************************************** 



E4E3 6800 


DPB256D DW 


104 


E4E5 04 


DB 


4 


E4E6 0F 


DB 


15 


E4E7 00 


DB 





E4E8 E601 


DW 


486 


E4EA FF00 


DW 


255 


E4EC F0 


DB 


0F0H 


E4ED 00 


DB 





E4EE 4000 


DW 


64 


E4F0 0200 


DW 


2 


E4F2 1A 


DB 


1AH 



CP/M SECTORS/TRACK 

BSH 

BLM 

EXM 

DSM 

DRM 

AL0 

AL1 

CKS 

OFF 



***************************************************************** 

* * 

* THE FOLLOWING DPB DEFINES A DISKETTE AS 512 BYTE SECTORS, * 

* DOUBLE DENSITY, AND DOUBLE SIDED. * 

* * 

***************************************************************** 



E4F3 


7800 


DPB512D DW 


120 


E4F5 


04 


DB 


4 


E4F6 


0F 


DB 


15 


E4F7 


00 


DB 





E4F8 


3102 


DW 


561 


E4FA 


FF00 


DW 


255 


E4FC 


F0 


DB 


0F0H 


E4FD 


00 


DB 





E4FE 


4000 


DW 


64 


E500 


0200 


DW 


2 


E502 


3B 


DB 


3BH 



CP/M SECTORS/TRACK 

BSH 

BLM 

EXM 

DSM 

DRM 

AL0 

AL1 

CKS 

OFF 



***************************************************************** 
* * 



* THE FOLLOWING DPB DEFINES A DISKETTE AS 1024 BYTE SECTORS, 

* DOUBLE DENSITY, AND DOUBLE SIDED. 



* 
* 
* 



CP/M MACRO ASSEM 2.0 #040 *** Cbios For CP/M Ver. 2.2 *** 

***************************************************************** 

;CP/M SECTORS/TRACK 

;BSH 

;BLM 

;EXM 

?DSM 

;DRM 

;AL0 

;AL1 

;CKS 

?OFF 



E503 


8000 


DP1024D DW 


128 


E505 


04 


DB 


4 


E506 


0F 


DB 


15 


E507 


00 


DB 





E508 


5702 


DW 


599 


E50A 


FF00 


DW 


255 


E50C 


F0 


DB 


0F0H 


E50D 


00 


DB 





E50E 


4000 


DW 


64 


E510 


0200 


DW 


2 


E512 


7C 


DB 
ENDIF 


7CH 



***************************************************************** 

* * 

* THE FOLLOWING DPB DEFINES A 10 MEGABYTE HARD DISK, WITH 512 * 

* BYTE SECTORS. * 

* * 
***************************************************************** 



E513 


0004 


E515 


05 


E516 


IF 


E517 


01 


E518 


B507 


E51A 


FF01 


E51C 


FF 


E51D 


FF 


E51E 


0000 


E520 


0100 


E522 


33 


E523 


0004 


E525 


05 


E526 


IF 


E527 


01 


E528 


B507 


E52A 


FF01 


E52C 


FF 


E52D 


FF 


E52E 


0000 


E530 


4000 


E532 


33 



DP3HD1 



DPBHD2 



IF 
IF 
DW 
DB 
DB 
DB 
DW 
DW 
DB 
DB 
DW 
DW 
DB 



DW 
DB 
DB 
DB 
DW 
DW 
DB 
DB 
DW 
DW 
DB 



MAXHD NE 

M26 NE 

1024 

5 

31 

1 

1973 

511 

0FFH 

0FFH 



1 

33H 



1024 

5 

31 

1 

1973 

511 

0FFH 

0FFH 



64 

33H 



E533 0004 


DPBHD3 


DW 


1024 


E535 05 




DB 


5 


E536 IF 




DB 


31 


E537 01 




DB 


1 


E538 B507 




DW 


1973 



CP/M SECTORS/TRACK 

BSH 

BLM 

EXM 

DSM 

DRM 

AL0 

AL1 

CKS 

OFF 

16*{( 

LOG2( 

8 IF 

CP/M 

BSH 

BLM 

EXM 

DSM 

DRM 

AL0 

AL1 

CKS 

OFF 

16*(( 

LOG2( 

8 IF 



#CPM SECTORS/PHYSICAL SECTOR) 
#BYTES PER SECTOR/ 128) + 1 + 
DOUBLE SIDED. 
SECTORS/ TRACK 



-1) + 



#CPM SECTORS/ PHYSICAL SECTOR) -1) + 
#BYTES PER SECTOR/128) + 1 + 
DOUBLE SIDED. 



? CP/M SECTORS/TRACK 

;BSH 

;BLM 

?EXM 

;DSM 



cp/m macro ASSEM 2.0 



#041 



*** Cbios For CP/M Ver. 2.2 *** 



E53A FF01 
E53C FF 
E53D FF 
E53E 0000 
E540 7F00 
E542 33 



DW 


511 


DB 


0FFH 


DB 


0FFH 


DW 





DW 


127 


DB 


33H 


ENDIF 




IF 


M10 NE 


DPBHD1 DW 


336 


DB 


5 


DB 


31 


DB 


1 


DW 


1269 


DW 


511 


DB 


0FFH 


DB 


0FFH 


DW 





DW 


1 


DB 


33H 


DPBHD2 DW 


336 


DB 


5 


DB 


31 


DB 


1 


DW 


1280 


DW 


511 


DB 


0FFH 


DB 


0FFH 


DW 





DW 


122 


DB 


33H 


ENDIF 




IF 


M20 NE 


DPBHD1 DW 


672 


DB 


5 


DB 


31 


DB 


1 


DW 


2015 


DW 


511 


DB 


0FFH 


DB 


0FFH 


DW 





DW 


1 


DB 


33H 


DPBHD2 DW 


672 


DB 


5 


DB 


31 


DB 


1 


DW 


2015 



;DRM 

7AL0 

;AL1 

?CKS 

;OFF 

;16*((#CPM SECTORS/ PHYSICAL SECTOR) -1) + 

;LOG2(#BYTES PER SECTOR/ 128) + 1 + 

;8 IF DOUBLE SIDED. 



CP/M 

BSH 

BLM 

EXM 

DSM 

DRM 

AL0 

AL1 

CKS 

OFF 

16*( 

LOG 2 

8 IF 

CP/M 

BSH 

BLM 

EXM 

DSM 

DRM 

AL0 

AL1 

CKS 

OFF 

16* ( 

LOG 2 

8 IF 



SECTORS/ TRACK 



(#CPM SECTORS/PHYSICAL SECTOR) -1) + 
(# BYTES PER SECTOR/ 128) + 1 + 

DOUBLE SIDED. 

SECTORS/TRACK 



(#CPM SECTORS/PHYSICAL SECTOR) -1 ) 
(# BYTES PER SECTOR/ 128) + 1 + 
DOUBLE SIDED. 



CP/M 

BSH 

BLM 

EXM 

DSM 

DRM 

AL0 

AL1 

CKS 

OFF 

16* (( 

LOG2( 

8 IF 

CP/M 

BSH 

BLM 

EXM 

DSM 



SECTORS/ TRACK 



#CPM SECTORS/PHYSICAL SECTOR) -1) + 
#BYTES PER SECTOR/128) + 1 + 
DOUBLE SIDED. 
SECTORS/TRACK 



CP/M MACRO ASSEM 2.0 



#042 



*** Cbios For CP/M Ver. 2.2 *** 



DPBHD3 



DW 


511 


DB 


0FFH 


DB 


0FFH 


DW 





DW 


98 


DB 


33H 



DW 


672 


DB 


5 


DB 


31 


DB 


1 


DW 


1028 


DW 


511 


DB 


0FFH 


DB 


0FFH 


DW 





DW 


195 


DB 


33H 


END IF 




ENDIF 





DRM 

AL0 

AL1 

CKS 

OFF 

16*((#CPM SECTORS/ PHYSICAL SECTOR) -1) + 

LOG2(#BYTES PER SECTOR/ 128) + 1 + 

8 IF DOUBLE SIDED. 

CP/M SECTORS/TRACK 

BSH 

BLM 

EXM 

DSM 

DRM 

AL0 

AL1 

CKS 

OFF 

16*((#CPM SECTORS/PHYSICAL SECTOR) -1) + 

LOG2(#BYTES PER SECTOR/ 128) + 1 + 

8 IF DOUBLE SIDED. 



***************************************************************** 

* * 

* CP/M DISK PARAMETER HEADERS, UNITIALIZED. * 

* * 

***************************************************************** 



E543 = 
0000 # 



HEADER 


MACRO 


ND,DPB 




DW 







DW 


0,0,0 




DW 


DIRBUF 




DW 


DPB 




DW 


CSV&ND 




DW 


ALV&ND 




ENDM 




DPBASE 


EQU 


$ 


DN 


SET 







IF 


FIRST 




REPT 


MAXHD 




HEADER 


%DN, DPBHD1 


DN 


SET 


DN+1 




HEADER 


%DN,DPBHD2 


DN 


SET 


DN+1 




IF 


(M26 NE 0) 




HEADER 


%DN,DPBHD3 


DN 


SET 

ENDIF 

ENDM 


DN+1 




REPT 


MAXFLOP 




HEADER 


%DN, 


DN 


SET 


DN+1 



? TRANSLATION TABLE FILLED IN LATER 

7 SCRATCH 

? DIRECTORY BUFFER 

?DPB FILLED IN LATER 

; DIRECTORY CHECK VECTOR 

; ALLOCATION VECTOR 



; GENERATE HARD DISK DPH ' S FOLLOWED 
BY FLOPPY DPH'S 



OR (M20 NE 0) 



CP/M macro ASSEM 2.0 



#043 



*** Cbios For CP/M Ver. 2.2 *** 





ENDM 






ELSE 






REPT 


MAXFLOP ; 




HEADER 


%DN,0 


DN 


SET 
ENDM 


DN+1 


E543+0000 


DW 


; 


E545+0000000000 


DW 


0,0,0 ; 


E54B+9DE9 


DW 


DIRBUF ? 


E54D+0000 


DW 





E54F+68EA 


DW 


CSV0 ; 


E551+1DEA 


DW 


ALV0 


E553+0000 


DW 





E555+0000000000 


DW 


0,0,0 


E55B+9DE9 


DW 


DIRBUF ; 


E55D+0000 


DW 





E55F+F3EA 


DW 


CSV1 


E561+A8EA 


DW 


ALV1 ; 




REPT 


MAXHD 




HEADER 


%DN,DPBHD1 


DN 


SET 


DN+1 




HEADER 


%DN,DPBHD2 


DN 


SET 


DN+1 




IF 


(M26 NE 0) OR (M2 




HEADER 


%DN,DPBHD3 


DN 


SET 

ENDIF 

ENDM 


DN+1 


E563+0000 


DW 


; 


E565+0000000000 


DW 


0,0,0 ; 


E56B+9DE9 


DW 


DIRBUF 


E56D+13E5 


DW 


DPBHD1 ; 


E56F+2AEC 


DW 


CSV2 ; 


E571+33EB 


DW 


ALV2 


E573+0000 


DW 





E575+0000000000 


DW 


0,0,0 ; 


E57B+9DE9 


DW 


DIRBUF ; 


E57D+23E5 


DW 


DPBHD2 


E57F+21ED 


DW 


CSV3 ; 


E581+2AEC 


DW 


ALV3 


E583+0000 


DW 





E585+0000000000 


DW 


0,0,0 ; 


E58B+9DE9 


DW 


DIRBUF ; 


E58D+33E5 


DW 


DPBHD3 ; 


E58F+18EE 


DW 


CSV4 ; 


E591+21ED 


DW 
ENDIF 


ALV4 



; GENERATE FLOPPY DPH'S FOLLOWED BY 
HARD DISK DPH'S 



TRANSLATION TABLE FILLED IN LATER 

SCRATCH 

DIRECTORY BUFFER 

DPB FILLED IN LATER 

DIRECTORY CHECK VECTOR 

ALLOCATION VECTOR 

TRANSLATION TABLE FILLED IN LATER 

SCRATCH 

DIRECTORY BUFFER 

DPB FILLED IN LATER 

DIRECTORY CHECK VECTOR 

ALLOCATION VECTOR 



(M20 NE 0) 



TRANSLATION TABLE FILLED IN LATER 

SCRATCH 

DIRECTORY BUFFER 

DPB FILLED IN LATER 

DIRECTORY CHECK VECTOR 

ALLOCATION VECTOR 

TRANSLATION TABLE FILLED IN LATER 

SCRATCH 

DIRECTORY BUFFER 

DPB FILLED IN LATER 

DIRECTORY CHECK VECTOR 

ALLOCATION VECTOR 

TRANSLATION TABLE FILLED IN LATER 

SCRATCH 

DIRECTORY BUFFER 

DPB FILLED IN LATER 

DIRECTORY CHECK VECTOR 

ALLOCATION VECTOR 



***************************************************************** 

* * 

* CBIOS RAM LOCATIONS THAT DON'T NEED INITIALIZATION. * 

* * 

***************************************************************** 



E593 0000 
E595 00 



CPMSEC DW 
CPMDRV DB 







;CP/M SECTOR # 
;CP/M DRIVE # 



cp/m macro ASSEM 2.0 



#044 



: ** Cbios For CP/M Ver. 2.2 *** 



;CP/M TRACK # 

;DISK JOCKEY SECTOR THAT CONTAINS CP/M SECTOR 

; DRIVE THAT BUFFER BELONGS TO 

; TRACK THAT BUFFER BELONGS TO 

; SECTOR THAT BUFFER BELONGS TO 



***************************************************************** 

* * 

* SIGNON MESSAGE OUTPUT DURING COLD BOOT. * 

* * 

***************************************************************** 



E596 


00 


CPMTRK 


DB 





E597 


0000 


TRUESEC 


DW 





E599 


00 


BUFDRV 


DB 





E59A 


00 


BUFTRK 


DB 





E59B 


0000 


BUFSEC 


DW 





E59D 


= 


BUFFER 


EQU 


$ 



HEXNUM 



MACRO 

IF 

DB 

ELSE 

DB 

ENDIF 

IF 

DB 

ELSE 

DB 

ENDIF 

ENDM 



NUM 

(NUM/16) > 9 

(NUM/16 AND 0FH) + 'A' - 10 

(NUM/16 AND 0FH) + '0' 

(NUM AND 0FH) > 9 

(NUM AND 0FH) + *A' - 10 

(NUM AND 0FH) + '0* 



E59D 0D0A0A PROMPT 

E5A0 4D6F72726F 

E5AF 36 

E5B0 30 

E5B1 4B2043502F 

E5B8 32 

E5B9 2E 

E5BA 32 

E5BB 2C20436269 

E5C7 322E 

E5C9 38 

E5CA 2E 
E5CB 32 
E5CC 36 



E5CD 0D0A 
E5CF 466F7220 



DB 

DB 

DB 

DB 

DB 

DB 

DB 

DB 

DB 

DB 

DB 

IF 

DB 

DB 

DB 

IF 

DB 

ENDIF 

IF 

DB 

ENDIF 

ENDIF 

DB 

DB 



ACR,ALF,ALF 
'Morrow Designs * 
'0'+MSIZE/l0 
*0'+(MSIZE MOD 10) 
'K CP/M ' 
CPMREV/l0+'0' 

(CPMREV MOD 10)+ '0' 
' , Cbios rev ' 
REVNUM/l0+'0' 
REVNUM MOD 10+ '0* 
MAXHD NE 

• 

MREV/l0+'0* 

MREV MOD 10+'0' 

(M10 OR M20) AND SDELAY 

•M' 



(M10 OR M20) AND NOT SDELAY 
•F* 



;CP/M MEMORY SIZE 
;CP/M VERSION NUMBER 



;CBIOS REVISION NUMBER 



ACR,ALF 
'For * 



E5D3 6120446973 

E5E6+46 
E5E7+30 



IF MAXFLQP NE 

DB 'a Disk Jockey 2D @ ' 

HEXNUM % (ORIGIN/2 56) 

DB (240/1 6 j AND 0FH ) + ' A ' 

DB (240 AND 0FH) + '0' 



- 10 



CP/M macro ASSEM 2.0 
E5E8 30304820 

E5EC 616E6420 



E5F0 616E20 



E5F3 4D323620 

E5F7 6861726420 

y E600 204020 

E603+3 5 
E604+30 

E605 482E 

E607 0D0A 

E609 0D0A 

E603 2020202020 

E625 0D0A 

E627 2020202020 

E643 0D0A 

E645 2020202020 

E660 0D0A 

E662 00 



#045 

DB 
ENDIF 

IF 
DB 
ENDIF 



*** Cbios For CP/M Ver. 2.2 *** 

'00H ' 



(MAXHD NE 0) AND (MAXFLOP NE 0) 
'and ' 



MAXHD NE 
MAXHD EQ 1 
'an ' 

MAXHD EQ 2 
'two ' 

MAXHD EQ 3 
1 three ' 

MAXHD EQ 4 
'four ' 

MREV EQ 10 
'M10 * 

MREV EQ 20 
"M20 ' 

MREV EQ 26 
'M26 ' 

'hard disK< 
MAXHD NE 1 V__ 
's' 



IF 

IF 

DB 

ENDIF 

IF 

DB 

ENDIF 

IF 

DB 

ENDIF 

IF 

DB 

ENDIF 

IF 

DB 

ENDIF 

IF 

DB 

ENDIF 

IF 

DB 

ENDIF 

DB 

IF 

DB 

ENDIF 

DB ' @ ' • 

HEXNUM %HDORG 

DB (80/16 AND 0FH) + '0' 

(80 AND 0FH) + '0' 

•H.' 



DB 

DB 

ENDIF 

DB 

DB 

DB 

DB 

DB 

DB 

DB 

DB 

DB 



ACR, ALF 
ACR,ALF 

THE W6GO/K6HHD LIST' 
ACR, ALF 

' Electronics Enterprises' 
ACR, ALF 

' Rio Linda, California' 
ACR, ALF 




a 



a& 



***************************************************************** 
* * 

* UTILITY ROUTINE TO QPTPUJEr THE MESSAGE' POINTED AT BY H&L, * 

* TERMINATED WITH A NULL. * 

* * 

******************* * * * * * * * * * *********** * * ************************ 



CP/M MACRO ASSEM 2.0 



#046 



*** Cbios For CP/M Ver. 2.2 **' 



E663 7E 


MESSAGE MOV 


A,M 


E664 23 


I NX 


H 


E665 A7 


ANA 


A 


E666 C8 


RZ 




E667 E5 


PUSH 


H 


E668 4F 


MOV 


C,A 


E669 CD0CDD 


CALL 


COUT 


E66C El 


POP 


H 


E66D C363E6 


JMP 


MESSAGE 



;GET A CHARACTER OF THE MESSAGE 

;BUMP TEXT POINTER 

yTEST FOR END 

', RETURN IF DONE 

;SAVE POINTER TO TEXT 

; OUTPUT CHARACTER IN C 

; OUTPUT THE CHARACTER 

; RESTORE THE POINTER 

; CONTINUE UNTIL NULL REACHED 

***************************************************************** 

* * 

* CBOOT IS THE COLD BOOT LOADER. ALL OF CP/M HAS BEEN LOADED IN * 

* WHEN CONTROL IS PASSED HERE. * 

* * 

***************************************************************** 



E670 310001 

E673 3EC0 
E675 320300 
E678 CD2DDE 

E67B 219DE5 
E67E CD63E6 
E681 AF 
E682 3295E5 
E685 320400 



CBOOT 



E688 2103DD 
E68B 2201DD A£ 



C^ 



E68E C358DEt; 1 ' 

E6n pi'. «1 



E79D 



E99D 



*''*,* 



W 



LXI 


SP,TPA 


MVI 


A, INTIOBY 


STA 


IOBYTE 


CALL 


TINIT 


LXI 


H, PROMPT 


CALL 


MESSAGE 


XRA 


A 


STA 


CPMDRV 


STA 


CDISK 


IF 


(MAXFLOP ] 


STA 


FLOPFLG 


END IF 




LXI 


H,BIOS+3 


SHLD 


BIOS+1 


JMP 


GOCPM 



DIRBUF 



DS 

IF 
DS 
ENDIF 

IF 
DS 
ENDIF 



•SET UP STACK 



.•INITIALIZE THE TERMINAL 

;PREP FOR SENDING SIGNON MESSAGE 
;SEND THE PROMPT 
r SELECT DISK A 



512- ($ -BUFFER) ;MAXIMUM SIZE BUFFER FOR 512 BYTE SECTORS 

;ADDITIONAL SPACE FOR FLOPPIES IK SECTORS 



MAXFLOP NE 
512 



(MAXFLOP NE 0) OR (MAXHD NE 0) 
128 ; DIRECTORY BUFFER 



0000 #, 



ALLOC 

ALV&ND 

CSV&ND 



DN 



MACRO 
DS 
DS 
ENDM 

SET 



ND,AL,CS 

AL 

CS 







IF 

REPT 

ALLOC 



NOT FIRST 
MAXFLOP 
%DN f 75,64 



cp/m macro 


ASSEM 2.0 


#047 


*** Cbios 




DN 


SET 
ENDM 


DN+1 


EA1D+ 


ALV0 


DS 


75 


EA68+ 


CSV0 


DS 


64 


EAA8+ 


ALV1 


DS 


75 


EAF3 + 


CSV1 


DS 


64 






REPT 


MAXHD 






IF 


M26 NE 






ALLOC 


%DN, 247,0 




DN 


SET 


DN+1 






ALLOC 


%DN, 247,0 




DN 


SET 


DN+1 






ALLOC 


%DN, 247,0 




DN 


SET 

ENDIF 


DN+1 






IF 


M10 NE 






ALLOC 


%DN, 159,0 




DN 


SET 


DN+1 






ALLOC 


%DN, 161,0 




DN 


SET 
ENDIF 


DN+1 






IF 


M20 NE 






ALLOC 


%DN, 252,0 




DN 


SET 


DN+1 






ALLOC 


%DN, 252,0 




DN 


SET 


DN+1 






ALLOC 


%DN, 129,0 




DN 


SET 

ENDIF 

ENDM 


DN+1 


EB33 + 


ALV2 


DS 


247 


EC2A.+ 


CSV2 


DS 





EC2A+ 


ALV3 


DS 


247 


ED21 + 


CSV3 


DS 





ED21 + 


ALV4 


DS 


247 


EE18+ 


CSV4 


DS 






ELSE 





REPT 


MAXHD 




IF 


M26 NE 




ALLOC 


%DN, 247,0 


DN 


SET 


DN+1 




ALLOC 


%DN, 247,0 


DN 


SET 


DN+1 




ALLOC 


%DN, 247,0 


DN 


SET 

ENDIF 


DN+1 




IF 


M10 NE 




ALLOC 


%DN, 159,0 


DN 


SET 


DN+1 




ALLOC 


%DN, 161,0 


DN 


SET 
ENDIF 


DN+1 




IF 


M20 NE 




ALLOC 


%DN, 252,0 



CP/M MACRO 


ASSEM 2.0 


#048 


*** Cbios 




DN 


SET 


DN+1 






ALLOC 


%DN, 252,0 




DN 


SET 


DN+1 






ALLOC 


%DN, 129,0 




DN 


SET 

ENDIF 

ENDM 


DN+1 






REPT 


MAXFLOP 






ALLOC 


%DN,75,64 




DN 


SET 

ENDM 

ENDIF 


DN+1 


EE18 




END 





cp/m macro ASSEM 2.0 



#049 



*** Cbios For CP/M Ver. 2.2 *** 



0006 


AACK 


E2C5 


ACCOK 


000D 


ACR 


0003 


AETX 


000A 


ALF 


EA1D 


ALV0 


EAA8 


ALV1 


EB33 


ALV2 


EC2A 


ALV3 


ED21 


ALV4 


DF41 


AUTOFLG 


CF00 


BDOS 


0005 


BDOSE 


A000 


BIAS 


DD00 


BIOS 


E599 


BUFDRV 


0080 


BUFF 


E59D 


BUFFER 


E59B 


BUFSEC 


E59A 


BUFTRK 


E1A3 


BUFWRTN 


E3B9 


BUILD 


E670 


CBOOT 


C700 


CCP 


0004 


CDISK 


DED5 


CHAR2 


DEE1 


CHECK 


DE08 


CICRT 


DE08 


CIPTR 


DD88 


CITBLE 


F003 


CITTY 


DDF 3 


CIUC1 


DE08 


CIUR1 


DE08 


CIUR2 


DEB5 


CLDBOT 


DEA0 


CLDCMND 


001A 


CLEAR 


DE3B 


COCRT 


DF42 


COLDBEG 


DF50 


COLDEND 


DDC9 


COLPT 


0004 


COMPLT 


DD42 


CONIN 


DD48 


CONIN1 


DD57 


CONOUT 


DD36 


CONST 


DDC9 


COPTP 


DE46 


COPTR 


DE4D 


COPTR1 


DD90 


COTBLE 


F006 


COTTY 


DDD4 


COUL1 


DDF2 


COUNT 


DDC9 


COUP1 


DDC9 


COUP2 


DD0C 


COUT 


E183 


CPMDMA 


E595 


CPMDRV 


C8D0 


CPMPT 


0016 


CPMREV 


E593 


CPMSEC 


E596 


CPMTRK 


DE1C 


CSCRT 


DE1C 


CSPTR 


DD3C 


CSREADR 


DDB8 


CSRTBLE 


DDB0 


CSTBLE 


DE14 


CSTTY 


DDFF 


CSUC1 


DE1C 


CSUR1 


DE1C 


CSUR2 


EA68 


CSV0 


EAF3 


CSV1 


EC2A 


CSV2 


ED21 


CSV3 


EE18 


CSV4 


DEBC 


CWFLG 


0008 


DBLSID 


E0FC 


DCRC 


E277 


DECIDE 


E273 


DECIDGO 


E2A5 


DELAY 


E2A8 


DELOOP 


E99D 


DIRBUF 


E14F 


DIVDONE 


E0FE 


DIVLOG 


E100 


DIVLOGX 


E141 


DIVLOOP 


F400 


DJBOOT 


F003 


DJCIN 


F006 


D J COUT 


F42D 


DJDEN 


F412 


DJDMA 


DD33 


DJDRV 


F42A 


DJERR 


F409 


DJHOME 


F400 


DJRAM 


F415 


DJREAD 


F40F 


DJSEC 


F41B 


DJSEL 


F430 


DJSIDE 


F427 


DJSTAT 


F40C 


DJTRK 


F021 


DJTSTAT 


F418 


DJWRITE 


DFE0 


DONOP 


E503 


DP1024D 


E4C3 


DP1024S 


E4D3 


DPB128D 


E493 


DPB128S 


E4E3 


DPB256D 


E4A3 


DPB256S 


E4F3 


DPB512D 


E4B3 


DPB512S 


E543 


DPBASE 


E513 


DPBHD1 


E523 


DPBHD2 


E533 


DPBHD3 


E3C4 


DRIVES 


E097 


DRVHD 


E3AE 


DRVPTR 


0020 


DRVRDY 


0007 


DSKCLK 


E15E 


DTSLOP 


0005 


ENTRY 


CE01 


EOF 


DED0 


EXIT1 


DF10 


EXIT 


E234 


FILL 


0000 


FIRST 


DF3F 


FLAG 


E040 


FLOPOK 


E1A2 


FLUSH 


DF16 


FOUND 


E25C 


FREAD 


E107 


GETDPB 


E2F8 


GETSPT 


DE53 


GOCPM 


E315 


HDADD 


0051 


HDCMND 


0050 


HDCNTL 


0053 


HDDATA 


E3C0 


HDDISK 


E2D8 


HDDMA 


E27F 


HDDRV 


0052 


HDFUNC 


E290 


HDHOME 


0050 


HDORG 


E379 


HDPREP 


E2FB 


HDREAD 


0051 


HDRESLT 


0004 


HDRLEN 


E2E6 


HDSEC 


E39E 


HDSECTR 


E2DD 


HDSIDE 


0020 


HDSPT 


0050 


HDSTAT 


E2B1 


HDTRK 


E2BF 


HDTRK2 


E330 


HDWRITE 


E3BA 


HEAD 


DFE7 


HOME 


0000 


IDBUFF 


0040 


INDEX 


E0CA 


INDX1 


E0D1 


INDX2 


00C0 


INTIOBY 


E190 


INTO 


0003 


IOBYTE 


0008 


ISBUFF 


DD77 


LIST 


DD7A 


LIST1 


DD82 


LISTST 


0003 


LOGDSK 


DE25 


LSLPT 


DDC0 


LSTBLE 


DD98 


LTBLE 


0000 


M10 


0000 


M20 


0001 


M26 


0002 


MAXFLOP 


0001 


MAXHD 


00F7 


MDIR 


E663 


MESSAGE 


E16D 


MOVE 


E268 


MOVER 


- E26A 


MOVLOP" 


001A 


MREV 


003C 


MSIZE 


DFB4 


NEWDMA 


DF95 


NEWSEC 


CE6B 


NFOUND 


E1C3 


NOADJST 


DFAC 


NOWRAP 


00FB 


NSTEP 


00FC 


NULL * 


DEFA 


NUSER0 


4A00 


OFFSETC 


0002 


OPDONE 


C7D0 


OPEN 


F000 


ORIGIN 


E18B 


OUTOF 


C78C 


PCHAR 


DECB 


PMT1 


DD72 


PNCH1 


E1AF 


PREP r 


E35F 


PROCESS 


DEBD 


PROMP1; 


E59D 


PROMPT 


0004 


PSTEP 


DDA0 


PTBLE 


DD6C 


PUNCH 


DDE9 


PWAIT 


E186 


RDWR 


DD62 


READER 


E12F 


READ j 


DD65 


READERA 


DD68, 


READR1 


DE2A 


READY 


El 33 


REDWRT 


000A 


RETRIES 


0002 


RETRY 


E1B8 


RETRYLP 


E215 


RETRYOP 


001C 


REVNUM 


CDDE 


RFILE 


0001 


RSECT 


DF39 


RSTR1 


DDA8 


RTBLE 


E31B 


RTLOOP 


0005 


SCENBL 


0001 


SDELAY 


0200 


SECLEN 


E172 


SECPSEC 


E134 


SECSIZ 


DFEE 


SECTRAN 


DD4C 


SELDEV 


DFE1 


SETDMA 


E029 


SETDRV 


E0DF 


SETDRV1 


DFDB 


SETSEC 


E2A6 


SETTLE 


DFE9 


SETTRK 


E004 


SIDEA 


E085 


SIDEOK 


E007 


SIDEQNE 


E00D 


SIDETWO 


E2C9 


SLOOP 


DEI 7 


STAT - 


E295 


STEPO 


E095 


SUBFP 


E0B3 


TDELAY 


DE2D 


TINIT 


0001 


TKZERO 


0008 


TMOUT 


0100 


TPA 


DFF6 


TRANFP 


E025 


TRANHR 


E597 


TRUESEC 


DF40 


USER 


DF21 


USRRST 


DF51 


WARMBEG 


DF51 


WARMEND 


DF94 


WARMLOD 


DFC8 


WARMRD 


DD03 


WBOOTE 


DF52 


WBOOT 


0000 


WBOT 


000F 


WENABL 


0010 


WFAULT 


DF56 


WFLG 


000B 


WRESET 


E128 


WRITE 


E19A 


WRITTYP 


DFCB 


WRMREAD 


E2DE 


WSDONE 


0005 


WSECT 


E33C 


WTLOOP 


E452 


XLT124 


E3C5 


XLT128 



CP/M MACRO ASSEM 2.0 #050 *** Cbios For CP/M Ver. 2.2 *** 

E3E0 XLT256 E415 XLT512 E120 XLTS E39D ZKEY E0F8 ZRET 



